source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/init/book_lowtran_ntuple.F @ 114

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

actual version of ESAF at CCin2p3
File size: 476 bytes
Line 
1      SUBROUTINE BOOK_LOWTRAN_NTUPLE
2      IMPLICIT NONE
3#include "tuple.common"
4#include "paw.inc"
5      CHARACTER CHTRANS*200 
6      INTEGER ISTAT
7      IQUEST(10) = 256000
8      Call Hropen (1,'LOWTRAN','auxilar/lowtran.rwn','NQE',1024,ISTAT)
9      If (Istat.Ne.0) Stop
10     *
11      CALL HBNT(10,'Transmission',' ')
12      CHTRANS = 'R,ZA,TETA,LAMBDA(100):R,TRANSM(100),OZONE(100),
13     $     SCAT(100),AEROSOL(100)'
14      CALL HBNAME(10,'TRANS',R,CHTRANS)
15      END
16     
Note: See TracBrowser for help on using the repository browser.