Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1.1.1 by mocchiut, Fri Aug 10 12:23:35 2007 UTC | revision 1.2 by mocchiut, Tue Aug 4 13:59:09 2009 UTC | |
|---|---|---|
| # | Line 114 C | Line 114 C |
| 114 | IF (RIL(LK).LE.10.AND.DBCLUS(J,LK).NE.0) THEN | IF (RIL(LK).LE.10.AND.DBCLUS(J,LK).NE.0) THEN |
| 115 | YY(J) = DBCLUS(J,LK) | YY(J) = DBCLUS(J,LK) |
| 116 | ENDIF | ENDIF |
| 117 | 7 ENDIF | c 7 ENDIF |
| 118 | ENDIF | |
| 119 | ENDDO | ENDDO |
| 120 | C | C |
| 121 | CALL LFIT(XX,YY,2,0,A,B,VAR) | CALL LFIT(XX,YY,2,0,A,B,VAR) |
| # | Line 128 C | Line 129 C |
| 129 | C | C |
| 130 | IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1 | IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1 |
| 131 | C | C |
| 132 | 999 RETURN | c 999 RETURN |
| 133 | RETURN | |
| 134 | END | END |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |