source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/atm/transition_r_iss.F @ 117

Last change on this file since 117 was 117, checked in by moretto, 11 years ago

ESAF version compilable on mac OS
File size: 222 bytes
Line 
1      SUBROUTINE TRANSITION_R_ISS(R,TRANS)
2      IMPLICIT NONE
3#include "detector.inc"
4      REAL R(3),TRANS(100)
5      INTEGER i
6      DO i=1,100
7        TRANS(i)=0
8      ENDDO
9      CALL LOWTRAN_R_ISS(R,TRANS)
10      END
Note: See TracBrowser for help on using the repository browser.