Parent Directory | Revision Log | Patch
revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC | revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | module fyhyp_m | module fyhyp_m |
2 | ||
3 | IMPLICIT NONE | IMPLICIT NONE |
4 | ||
5 | contains | contains |
6 | ||
# | Line 79 contains | Line 79 contains |
79 | // "et relancer." | // "et relancer." |
80 | STOP 1 | STOP 1 |
81 | ELSE | ELSE |
82 | dzoom = dzooma*pi/180. | dzoom = dzooma * pi/180. |
83 | END IF | END IF |
84 | ||
85 | print *, 'yzoom(rad), grossism, tau, dzoom (rad):' | print *, 'yzoom(rad), grossism, tau, dzoom (rad):' |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |