Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1.1.1 by mocchiut, Fri May 19 13:15:50 2006 UTC | revision 1.4 by mocchiut, Fri Dec 12 16:18:20 2008 UTC | |
|---|---|---|
| # | Line 13 C- LAYERS 6 - 8 . | Line 13 C- LAYERS 6 - 8 . |
| 13 | C- | C- |
| 14 | C---------------------------------------------------------------------- | C---------------------------------------------------------------------- |
| 15 | INCLUDE 'INTEST.TXT' | INCLUDE 'INTEST.TXT' |
| 16 | REAL QQQ(NCHA) | REAL QQQ(NCHA), ENE, BAR |
| 17 | INTEGER IERR1 | |
| 18 | ||
| 19 | COMMON / SHIFT / SHIFT | |
| 20 | SAVE / SHIFT / | |
| 21 | DATA ENE / 0. / | |
| 22 | DATA BAR / 0. / | |
| 23 | DATA IERR1 / 0 / | |
| 24 | C | |
| 25 | ENE = 0. | |
| 26 | BAR = 0. | |
| 27 | IERR1 = 0 | |
| 28 | C | C |
| 29 | DO J = 1,2 | DO J = 1,2 |
| 30 | DO N = 1,2 | DO N = 1,2 |
| # | Line 63 C | Line 73 C |
| 73 | 66 CONTINUE | 66 CONTINUE |
| 74 | IA = MSTR + 1 | IA = MSTR + 1 |
| 75 | C | C |
| 76 | NN = 0 | |
| 77 | IF (MOD(J,2).EQ.NN) THEN | |
| 78 | IF (REVERSE.EQ.0) THEN | |
| 79 | SHIFT = -0.5 | |
| 80 | ELSE | |
| 81 | SHIFT = +0.5 | |
| 82 | ENDIF | |
| 83 | ELSE | |
| 84 | IF (REVERSE.EQ.0) THEN | |
| 85 | SHIFT = +0.5 | |
| 86 | ELSE | |
| 87 | SHIFT = -0.5 | |
| 88 | ENDIF | |
| 89 | ENDIF | |
| 90 | C | |
| 91 | CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1) | CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1) |
| 92 | IGIRO = IGIRO + 1 | IGIRO = IGIRO + 1 |
| 93 | IGI = IGIRO + NCHA / 2 | IGI = IGIRO + NCHA / 2 |
| 94 | CLUS2(N,J,IGIRO) = BAR | CLUS2(N,J,IGIRO) = BAR |
| 95 | CLUS2(N,J,IGI) = ENE | CLUS2(N,J,IGI) = ENE |
| 96 | C | C |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |