cinc_skelblock.f

Go to the documentation of this file.

        block(1) = 5
        block(2) = 6
        block(3) = 3
        block(4) = 1
        block(5) = 6
        block(6) = 1
        block(7) = 1
        block(8) = 1
        block(9) = 4
        block(10) = 1

        byteloc(1) = 0
        byetloc(2) = 40
        byteloc(3) = 46
        byteloc(4) = 70
        byteloc(5) = 74
        byteloc(6) = 122
        byteloc(7) = 126
        byteloc(8) = 134
        byteloc(9) = 138
        byteloc(10) = 142

        btype(1) = mpi_real8
        btype(2) = mpi_byte
        btype(3) = mpi_real8
        btype(4) = mpi_character
        btype(5) = mpi_real8
        btype(6) = mpi_character
        btype(7) = mpi_real8
        btype(8) = mpi_real
        btype(9) = mpi_byte
        btype(10) = mpi_real8
        

!     *  Zfirst.p.fm.p, Zfirst.p.mass,  5*8
!     *  Zfirst.p.code, Zfirst.p.subcode,  Zfirst.p.charge, 6*1
!     *  Zfirst.pos.xyz.r, 3*8
!     *  Zfirst.pos.xyz.sys, 4   
!     *  Zfirst.pos.radiallen,
!     *  Zfirst.pos.depth,  Zfirst.pos.height,
!     *  Zfirst.pos.colheight,                  
!     *  Zfirst.t, Zfirst.vec.w.r,               6*8 
!     *  Zfirst.vec.w.sys,               4
!     *  Zfirst.vec.coszenith,           8
!     *  Zfirst.wgt,                     4
!     *  Zfirst.where, Zfirst.asflag,    4*1
!     *  Zfirst.user                     8
!    

!      40+6+24+4+48+4+8+4+4+8    makes 150