Parent Directory | Revision Log | Patch
revision 1.1 by mocchiut, Mon Dec 5 16:13:54 2005 UTC | revision 1.2 by mocchiut, Wed Dec 21 16:38:08 2005 UTC | |
---|---|---|
# | Line 66 C | Line 66 C |
66 | DO I = 1,NPLA | DO I = 1,NPLA |
67 | C | C |
68 | IF (MOD(M,2).EQ.0) THEN | IF (MOD(M,2).EQ.0) THEN |
69 | X(I) = PIANO(I)-5.1 | X(I) = PIANO(I) - 5.81 |
70 | ELSE | ELSE |
71 | X(I) = PIANO(I) | X(I) = PIANO(I) |
72 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |