| NUMRISE.f90#145 | XB = X - XBADJ |
| #148 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #151 | IF ( IPOSITN.LT.4 ) CALL WAKE_U(.FALSE.,XB,YB,ZB,UFAC,DUFAC) |
| #226 | XB = X - XBADJ !3220978 |
| #233 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #235 | CALL ZSTREAM(HB,WB,XLB,RB,XLR,HR,XB,YB,ZB,DZDX) !2339196 |
| #254 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #257 | IF ( IPOSITN.LT.4 ) CALL WAKE_U(LDBU,XB,YB,ZB,UFAC,DUFAC) |
| #275 | XB = X - XBADJ |
| #278 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #310 | XBI = XB |
| #331 | WRITE (IO6,*) 'xb,phi :' , XB , PHI |
| #370 | IF ( IPOSITN.LT.4 ) CALL WAKE_U(.FALSE.,XB,YB,ZB,UFAC,DUFAC) |
| WAKE_DBG.f90#95 | XB = DBX - XBADJ |
| #98 | DBXB = XB |
| #109 | IF ( XB.GE.0.0 ) THEN |
| #111 | CALL WAKE_DIM(XB,HB,WB,RB,DBHW,DBWW) ! 0 |
| #114 | CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,DBHC,DBWC) |
| #117 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #119 | IF ( IPOSITN.LT.4 ) CALL WAKE_U(LDB,XB,YB,ZB,DBUW,DBDUW) |
| #145 | XB = DBX - XBADJ |
| #148 | DBXB = XB |
| #157 | IF ( XB.GE.0.0 ) THEN |
| #159 | CALL WAKE_DIM(XB,HB,WB,RB,DBHW,DBWW) ! 0 |
| #162 | CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,DBHC,DBWC) |
| #165 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #167 | IF ( IPOSITN.LT.4 ) CALL WAKE_U(LDB,XB,YB,ZB,DBUW,DBDUW) |
| #192 | XB = DBX - XBADJ |
| #195 | DBXB = XB |
| #203 | IF ( XB.GE.0.0 ) THEN |
| #205 | CALL WAKE_DIM(XB,HB,WB,RB,DBHW,DBWW) ! 0 |
| #208 | CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,DBHC,DBWC) |
| #211 | CALL POSITION(XB,YB,ZB,IPOSITN) |
| #213 | IF ( IPOSITN.LT.4 ) CALL WAKE_U(LDB,XB,YB,ZB,DBUW,DBDUW) |
| WAKE_FQC.f90#73 | XB = XBSTART + IS*XSTEP ! 43818 |
| #74 | X = XB + XBADJ |
| #76 | CALL CAVITY_HT(HB,WB,XLB,RB,XLC,XLR,HR,XB,ZCAV,YCAV) |
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use