Go to the source code of this file.
 | 
| subroutine  | dttest (CODEWD, WHAT, SDUM) | 
|   | 
| subroutine  | samppt (MODE, PT) | 
|   | 
| REAL *8 function  | bsofpt (ACC, CC, PPTCUT) | 
|   | 
| subroutine  | bsofc1 (B, F, DF) | 
|   | 
| REAL *8 function  | bsof1 (B) | 
|   | 
| REAL *8 function  | rtsafe (FUNCD, X1, X2, XACC) | 
|   | 
| REAL *8 function  | var (A, B, C, D) | 
|   | 
| subroutine  | zbrac (FUNC, X1, X2, SUCCES) | 
|   | 
| subroutine  | checkf (EPN, PPN, IREJ, IORIG) | 
|   | 
| subroutine  | checkn (EPN, PPN, IREJ, IORIG) | 
|   | 
| subroutine  | checko (EPN, PPN, IREJ, IORIG) | 
|   | 
| subroutine  | checke (EPN, PPN) | 
|   | 
| DOUBLE PRECISION function  | ebind (IA, IZ) | 
|   | 
| subroutine  | defaul (EPN, PPN) | 
|   | 
| subroutine  | hadhad (EPN, PPN, NHKKH1, IHTAWW, ITTA, IREJFO) | 
|   | 
| subroutine  | chebch (IREJ, NHKKH1) | 
|   | 
| subroutine  | parpt (IFL, PT1, PT2, IPT, NEVT) | 
|   | 
| subroutine  | hkkfil (IST, ID, M1, M2, PX, PY, PZ, E, NHKKAU, KORMO, ICALL) | 
|   | 
| subroutine  | jsparr | 
|   | 
      
        
          | subroutine bsofc1  | 
          ( | 
            | 
          B,  | 
        
        
           | 
           | 
            | 
          F,  | 
        
        
           | 
           | 
            | 
          DF  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | REAL            * 8 function bsofpt  | 
          ( | 
            | 
          ACC,  | 
        
        
           | 
           | 
            | 
          CC,  | 
        
        
           | 
           | 
            | 
          PPTCUT  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine chebch  | 
          ( | 
            | 
          IREJ,  | 
        
        
           | 
           | 
            | 
          NHKKH1  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine checke  | 
          ( | 
            | 
          EPN,  | 
        
        
           | 
           | 
            | 
          PPN  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine checkf  | 
          ( | 
            | 
          EPN,  | 
        
        
           | 
           | 
            | 
          PPN,  | 
        
        
           | 
           | 
            | 
          IREJ,  | 
        
        
           | 
           | 
            | 
          IORIG  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine checkn  | 
          ( | 
            | 
          EPN,  | 
        
        
           | 
           | 
            | 
          PPN,  | 
        
        
           | 
           | 
            | 
          IREJ,  | 
        
        
           | 
           | 
            | 
          IORIG  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine checko  | 
          ( | 
            | 
          EPN,  | 
        
        
           | 
           | 
            | 
          PPN,  | 
        
        
           | 
           | 
            | 
          IREJ,  | 
        
        
           | 
           | 
            | 
          IORIG  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine defaul  | 
          ( | 
            | 
          EPN,  | 
        
        
           | 
           | 
            | 
          PPN  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine dttest  | 
          ( | 
          character*8  | 
          CODEWD,  | 
        
        
           | 
           | 
          dimension(6)  | 
          WHAT,  | 
        
        
           | 
           | 
          character*8  | 
          SDUM  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | DOUBLE PRECISION function ebind  | 
          ( | 
            | 
          IA,  | 
        
        
           | 
           | 
            | 
          IZ  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine hadhad  | 
          ( | 
            | 
          EPN,  | 
        
        
           | 
           | 
            | 
          PPN,  | 
        
        
           | 
           | 
            | 
          NHKKH1,  | 
        
        
           | 
           | 
            | 
          IHTAWW,  | 
        
        
           | 
           | 
            | 
          ITTA,  | 
        
        
           | 
           | 
            | 
          IREJFO  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine hkkfil  | 
          ( | 
            | 
          IST,  | 
        
        
           | 
           | 
            | 
          ID,  | 
        
        
           | 
           | 
            | 
          M1,  | 
        
        
           | 
           | 
            | 
          M2,  | 
        
        
           | 
           | 
            | 
          PX,  | 
        
        
           | 
           | 
            | 
          PY,  | 
        
        
           | 
           | 
            | 
          PZ,  | 
        
        
           | 
           | 
            | 
          E,  | 
        
        
           | 
           | 
            | 
          NHKKAU,  | 
        
        
           | 
           | 
            | 
          KORMO,  | 
        
        
           | 
           | 
            | 
          ICALL  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine parpt  | 
          ( | 
            | 
          IFL,  | 
        
        
           | 
           | 
            | 
          PT1,  | 
        
        
           | 
           | 
            | 
          PT2,  | 
        
        
           | 
           | 
            | 
          IPT,  | 
        
        
           | 
           | 
            | 
          NEVT  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | REAL            * 8 function rtsafe  | 
          ( | 
            | 
          FUNCD,  | 
        
        
           | 
           | 
            | 
          X1,  | 
        
        
           | 
           | 
            | 
          X2,  | 
        
        
           | 
           | 
            | 
          XACC  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine samppt  | 
          ( | 
            | 
          MODE,  | 
        
        
           | 
           | 
            | 
          PT  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine zbrac  | 
          ( | 
          external  | 
          FUNC,  | 
        
        
           | 
           | 
            | 
          X1,  | 
        
        
           | 
           | 
            | 
          X2,  | 
        
        
           | 
           | 
          logical  | 
          SUCCES  | 
        
        
           | 
          ) | 
           |  |