source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/lowtran/src/initcard3_v2.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: 1000 bytes
Line 
1      SUBROUTINE INITCARD3_V2(USR_H1,USR_H2,USR_ANGLE)
2c***********************************************************************
3c initialise the variable for lowtran for each point of the track
4c     user_h1, user_h2 in km, usr_angle in degrees
5c     C Berat, april2004
6c
7c     CARD 3    H1,H2,ANGLE,RANGE,BETA,RO,LEN    FORMAT(6F10.3,I5)     
8C            USED TO DEFINE THE GEOMETRICAL PATH PARAMETERS FOR A GIVEN
9C            PROBLEM.                                                   
10C                                                                       
11C     OR IF IEMSCT=3 ; CARD 3 H1,H2,ANGLE,IDAY,RO,ISOURC,ANGLEM         
12C************************************************************************   
13#include "lwtrn7.common"
14#include "tuple.common"
15   
16      REAL USR_H1,USR_H2,USR_ANGLE
17
18      PI=ACOS(-1.)
19     
20      H2=USR_H2
21      H1=USR_H1
22      ANGLE=USR_ANGLE
23      TETA=ANGLE
24      RANGE=0.
25      BETA=0
26      R0=0
27      LEN=0
28
29      RETURN
30      END
31
32     
33     
34
35
36
37
38
39
40
41
42
Note: See TracBrowser for help on using the repository browser.