writeobj.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writeobj (objectset, iobject, g0)

Function/Subroutine Documentation

writeobj()

subroutine writeobj	(	character*81, dimension(4,*)	objectset,
		integer	iobject,
		real*8, dimension(*)	g0
	)

!
!     writes the results of the objective function in the .dat file
!
      implicit none
!
      character*81 objectset(4,*)
      integer iobject,i
      real*8 g0(*)
!          
      i=iobject+1
!
      if(objectset(1,i)(1:12).eq.'DISPLACEMENT') then
         write(5,*)
         write(5,*)'OBJECTIVE: DISPLACEMENT'  
         write(5,*)
         write(5,'(7x,e14.7)') g0(i)
!
      elseif(objectset(1,i)(1:14).eq.'EIGENFREQUENCY') then
         write(5,*)
         write(5,*)'OBJECTIVE: EIGENFREQUENCY'  
         write(5,*)
         write(5,'(7x,e14.7)') g0(i)
!
      elseif(objectset(1,i)(1:4).eq.'MASS') then
         write(5,*)
         write(5,*)'OBJECTIVE: MASS'  
         write(5,*)
         write(5,'(7x,e14.7)') g0(i)
!
      elseif(objectset(1,i)(1:11).eq.'SHAPEENERGY') then
         write(5,*)
         write(5,*)'OBJECTIVE: SHAPE ENERGY' 
         write(5,*) 
         write(5,'(7x,e14.7)') g0(i)
!
      elseif(objectset(1,i)(1:6).eq.'STRESS') then
         write(5,*)
         write(5,*)'OBJECTIVE: STRESS'  
         write(5,*)
         write(5,'(7x,e14.7)') g0(i)
!
      elseif(objectset(1,i)(1:9).eq.'THICKNESS') then
         write(5,*)
         write(5,*)'OBJECTIVE: THICKNESS'  
         write(5,*)
         write(5,'(7x,e14.7)') g0(i)
!
      endif
!      
      return