Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by mocchiut, Fri May 19 13:15:50 2006 UTC | revision 1.4 by mocchiut, Thu Aug 10 06:32:02 2006 UTC | |
|---|---|---|
| # | Line 167 C | Line 167 C |
| 167 | IF (NPCFIT(M).GE.2) THEN | IF (NPCFIT(M).GE.2) THEN |
| 168 | VARCFIT(M) = VARFIT(M) | VARCFIT(M) = VARFIT(M) |
| 169 | IF (M.EQ.1) THEN | IF (M.EQ.1) THEN |
| 170 | IMPX = CX | IMPX = (CX - XALIG)/10. |
| 171 | TANX = TG(1) | TANX = TG(1) |
| 172 | ELSE | ELSE |
| 173 | IMPY = CY | IMPY =( CY - YALIG)/10. |
| 174 | TANY = TG(2) | TANY = TG(2) |
| 175 | ENDIF | ENDIF |
| 176 | C | C |
| 177 | DO I = 1,NPLA | DO I = 1,NPLA |
| 178 | NN = 0 | NN = 0 |
| 179 | IF (M.EQ.2) NN = 1 | C???? IF (M.EQ.2) NN = 1 |
| 180 | IF (MOD(I,2).EQ.NN) THEN | IF (MOD(I,2).EQ.NN) THEN |
| 181 | SHIFT = +0.5 | SHIFT = +0.5 |
| 182 | ELSE | ELSE |
| # | Line 193 C | Line 193 C |
| 193 | DISTY = PIANO(I) | DISTY = PIANO(I) |
| 194 | YY(I) = DISTY * TG(2) + CY | YY(I) = DISTY * TG(2) + CY |
| 195 | BAR(M,I) = YY(I) | BAR(M,I) = YY(I) |
| 196 | CBAR(M,I) = (YALIG - YY(I))/10. | CBAR(M,I) = (-YALIG + YY(I))/10. |
| 197 | C | C |
| 198 | ENDIF | ENDIF |
| 199 | CALL LASTRISCIA(BAR(M,I),IBAR(M,I)) | CALL LASTRISCIA(BAR(M,I),IBAR(M,I)) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |