| PSIDE.f90#70 | INTEGER , PARAMETER :: NDIM = 12 , IMIN = 5 |
| #112 | CALL QATR3(U1,U2,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON,NOUT, & |
| #119 | CALL QATR3(UMINUS,U2,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #123 | CALL QATR3(U1,UMINUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #133 | CALL QATR3(UPLUS,U2,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #137 | CALL QATR3(UPLUS,UMINUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON,& |
| #147 | CALL QATR3(U1,UPLUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #151 | CALL QATR3(UMINUS,UPLUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON,& |
| PSIDE2.f90#35 | INTEGER , PARAMETER :: NDIM = 12 , IMIN = 5 |
| #116 | CALL QATR3(UAV,UBV,EPSR,EPST,NDIM,IMIN,TMPVAL,TMPVALD, & |
| PSIDE2_TOX.f90#39 | INTEGER , PARAMETER :: NDIM = 10 , IMIN = 4 |
| #128 | CALL QATR3(UAV,UBV,EPSR,EPST,NDIM,IMIN,TMPVAL,TMPVALD,& |
| PSIDE_TOX.f90#73 | INTEGER , PARAMETER :: NDIM = 10 , IMIN = 4 |
| #123 | CALL QATR3(U1,U2,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #134 | CALL QATR3(UMINUS,U2,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON,& |
| #142 | CALL QATR3(U1,UMINUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON,& |
| #156 | CALL QATR3(UPLUS,U2,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #164 | CALL QATR3(UPLUS,UMINUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD, & |
| #178 | CALL QATR3(U1,UPLUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD,ICON, & |
| #186 | CALL QATR3(UMINUS,UPLUS,EPSR,EPST,NDIM,IMIN,DVAL,DVALD, & |
| QATR3.f90#3 | SUBROUTINE QATR3(XL,XU,EPS,EPST,NDIM,IMIN,Y,YD,IER,I,AUX) |
| #38 | INTEGER :: NDIM , IMIN , IER |
| #107 | IF ( I.GE.IMIN ) THEN |
| SBYVAL.f90#26 | INTEGER :: I , INX , JC , IMIN |
| #38 | IMIN = JC |
| #41 | IMIN = I ! 0 |
| #48 | ARRIN1(JC) = ARRIN1(IMIN) |
| #49 | ARRIN2(JC) = ARRIN2(IMIN) |
| #50 | ARRIN1(IMIN) = TEMP1 |
| #51 | ARRIN2(IMIN) = TEMP2 |
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