Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2 by mocchiut, Fri Jul 20 08:24:54 2007 UTC | revision 1.4 by mocchiut, Tue Aug 4 14:01:21 2009 UTC | |
|---|---|---|
| # | Line 19 C--------------------------------------- | Line 19 C--------------------------------------- |
| 19 | C | C |
| 20 | INTEGER LK(2) | INTEGER LK(2) |
| 21 | INTEGER IBAR(2,NPLAV) | INTEGER IBAR(2,NPLAV) |
| 22 | INTEGER ITL | INTEGER ITL,I,LPIANO |
| 23 | REAL RX(2),RY(2) | REAL RX(2),RY(2) |
| 24 | REAL RIL(NCHA/2) | REAL RIL(NCHA/2) |
| 25 | REAL BAR(2,NPLAV) | REAL BAR(2,NPLAV) |
| # | Line 37 C | Line 37 C |
| 37 | SAVE / TANGENTI / | SAVE / TANGENTI / |
| 38 | COMMON / ANGOLO / BAR, IBAR | COMMON / ANGOLO / BAR, IBAR |
| 39 | SAVE / ANGOLO / | SAVE / ANGOLO / |
| 40 | DATA DAD / 0. / | |
| 41 | C | C |
| 42 | LPIANO = NPLA / 2 | LPIANO = NPLA / 2 |
| 43 | c | c |
| # | Line 44 c | Line 45 c |
| 45 | C | C |
| 46 | ITL = 0 | ITL = 0 |
| 47 | IALFA = 0 | IALFA = 0 |
| 48 | 499 CONTINUE | CONTINUE |
| 49 | C | C |
| 50 | DO I = 1,NCHA/2 | DO I = 1,NCHA/2 |
| 51 | RIL(I) = 1000. | RIL(I) = 1000. |
| 52 | ENDDO | ENDDO |
| 53 | C | C |
| 54 | DAD = 0. | |
| 55 | RX(1) = 0. | RX(1) = 0. |
| 56 | RX(2) = 0. | RX(2) = 0. |
| 57 | RY(1) = 0. | RY(1) = 0. |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |