writedesi.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writedesi (norien, orname)

Function/Subroutine Documentation

writedesi()

subroutine writedesi	(	integer	norien,
		character*80, dimension(*)	orname
	)

!
!     writes the orientation design variables in the .dat file
!
      implicit none
!
      character*80 orname(*)
      integer j,norien
!     
      write(5,*)
      write(5,*) '    D E S I G N   V A R I A B L E S'
      write(5,*)
      write(5,'(a8,1x,a11,62x,a15)') 'VARIABLE','ORIENTATION',
     &    'ROTATION VECTOR'
      write(5,*)
!
      do j=1,norien
         write(5,'(i5,4x,a80,1x,a5)') (j-1)*3+1,orname(j)(1:80),'Rx   '
         write(5,'(i5,4x,a80,1x,a5)') (j-1)*3+2,orname(j)(1:80),'Ry   '
         write(5,'(i5,4x,a80,1x,a5)') (j-1)*3+3,orname(j)(1:80),'Rz   '
      enddo
!
      return