source: trunk/fsource/mcsasubs/dollase.for @ 980

Last change on this file since 980 was 980, checked in by toby, 9 years ago

rename to lower case for all but windows

File size: 723 bytes
Line 
1      SUBROUTINE DOLLASE(CA,RAT,CORR)
2
3!PURPOSE: Calculate MArch-Dollase function
4
5      INCLUDE       '../INCLDS/COPYRIGT.FOR' 
6
7!PSEUDOCODE:
8
9!CALLING ARGUMENTS:
10
11      REAL*8        CA                  !Cos(alpha)**2
12      REAL*8        RAT                 !PO ellipsoid axis ratio
13      REAL*8        CORR                !March-Dollase function
14
15!INCLUDE STATEMENTS:
16
17!LOCAL VARIABLES:
18
19      REAL*8        SA                  !Sin(alpha)**2
20      REAL*8        A                   !Intermediate value
21
22!SUBROUTINES CALLED:
23
24!FUNCTION DEFINITIONS:
25
26!DATA STATEMENTS:
27
28!CODE:
29
30      SA = 1.0-CA
31      A = CA*RAT**2+SA/RAT
32      A = 1.0/SQRT(A)
33      CORR = A**3
34      RETURN
35      END
Note: See TracBrowser for help on using the repository browser.