Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by cnh, Sun Sep 6 14:45:11 1998 UTC | revision 1.6 by cnh, Mon Nov 2 03:34:12 1998 UTC | |
---|---|---|
# | Line 45 C drC(K) = 0.5 _d 0 *(delZ(K-1) | Line 45 C drC(K) = 0.5 _d 0 *(delZ(K-1) |
45 | C rC(K) = rC(K-1) - drC(K) | C rC(K) = rC(K-1) - drC(K) |
46 | ENDDO | ENDDO |
47 | DO K=1,Nr | DO K=1,Nr |
48 | saFac(K) = 1. D0 | saFac(K) = 1. _d 0 |
49 | recip_drC(K) = 1. _d 0/drC(K) | recip_drC(K) = 1. _d 0/drC(K) |
50 | recip_drF(K) = 1. _d 0/drF(K) | recip_drF(K) = 1. _d 0/drF(K) |
51 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |