write_pcyl.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	write_pcyl (loads)

Function/Subroutine Documentation

write_pcyl()

subroutine write_pcyl

(

type (loads_), intent(in)

loads

)

Definition at line 33 of file write_pcyl.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE loads_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE (LOADS_) ,INTENT(IN) :: LOADS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: I,J,NSEG,LINT,IAD,NLOAD_CYL
      INTEGER :: MY_SIZE
      INTEGER, DIMENSION(:),ALLOCATABLE :: ITMP
      my_real, DIMENSION(3) :: rtmp
C-----------------------------------------------
c         -> PCYL_ID
c         -> NSEG
c         -> SEGNOD(NSEG,4)  (N1,N2,NB3,N4) by segment
c         -> FRAME_ID
c         -> SENS_ID
c         -> TABLE_ID
c         -> XSCALE_R
c         -> XSCALE_T
c         -> YSCALE_P
c=======================================================================
      nload_cyl = loads%NLOAD_CYL
      DO i=1,nload_cyl
        nseg = loads%LOAD_CYL(i)%NSEG
        lint = 5 + nseg*4
        ALLOCATE (itmp(lint))
        rtmp(1) = loads%LOAD_CYL(i)%XSCALE_R
        rtmp(2) = loads%LOAD_CYL(i)%XSCALE_T
        rtmp(3) = loads%LOAD_CYL(i)%YSCALE
c
        itmp(1) = nseg
        itmp(2) = loads%LOAD_CYL(i)%ID
        itmp(3) = loads%LOAD_CYL(i)%ISENS
        itmp(4) = loads%LOAD_CYL(i)%ITABLE
        itmp(5) = loads%LOAD_CYL(i)%IFRAME
        iad     = 5
        DO j=1,nseg
          itmp(iad+1) = loads%LOAD_CYL(i)%SEGNOD(j,1)
          itmp(iad+2) = loads%LOAD_CYL(i)%SEGNOD(j,2)
          itmp(iad+3) = loads%LOAD_CYL(i)%SEGNOD(j,3)
          itmp(iad+4) = loads%LOAD_CYL(i)%SEGNOD(j,4)
          iad = iad + 4
        ENDDO
c        
        CALL write_i_c(itmp,iad)
        CALL write_db(rtmp,3)
        ! ---------------
        ! load/pcyl option : adress of FSKY array
        my_size = loads%LOAD_CYL(i)%NSEG
        CALL write_i_c(loads%LOAD_CYL(i)%SEGMENT_ADRESS,4*my_size)
        ! ---------------
c        
        DEALLOCATE(itmp)
      ENDDO
c-----------
      RETURN