Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1.1.1 by mocchiut, Mon Dec 5 16:13:54 2005 UTC | revision 1.2 by mocchiut, Wed Dec 21 16:38:07 2005 UTC | |
|---|---|---|
| # | Line 89 C | Line 89 C |
| 89 | PIANO(1) = 0. | PIANO(1) = 0. |
| 90 | DO I = 2, 22 | DO I = 2, 22 |
| 91 | IF ( MOD(I,2).EQ.0 ) THEN | IF ( MOD(I,2).EQ.0 ) THEN |
| 92 | PIANO(I) = PIANO(I-1) - 8.42 | PIANO(I) = PIANO(I-1) - 8.09 |
| 93 | ELSE | ELSE |
| 94 | PIANO(I) = PIANO(I-1) - 9.76 | PIANO(I) = PIANO(I-1) - 10.09 |
| 95 | ENDIF | ENDIF |
| 96 | ENDDO | ENDDO |
| 97 | C | C |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |