IAP GITLAB

STRUCTP.f 266 Bytes
Newer Older
1
#ifndef FOR_CORSIKA
Tanguy Pierog's avatar
Tanguy Pierog committed
2 3 4 5 6 7 8

      SUBROUTINE STRUCTP(Xi,Scale2,P2,Ip2,Uv,Dv,Us,Ds,Ss,Cs,Bs,Ts,Gl)
      IMPLICIT NONE
      DOUBLE PRECISION Bs , Cs , Ds , Dv , Gl , P2 , Scale2 , Ss , Ts , 
     &                 Us , Uv , Xi
      INTEGER Ip2
      END SUBROUTINE
9
#endif