ocssw V2020
tmd.lp.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine calcrand (RAT, LAM, MRR, MRI, EPS, NP, DDELT, NDGS, NPNAX, AXMAX, B, GAM, NDISTR, NKMAX, NPNA, NCOEFF, REFF, VEFF, CEXTIN, CSCAT, WALB, ASYMM, F)
 
subroutine gsp (NMAX, CSCA, LAM, ALF1, ALF2, ALF3, ALF4, BET1, BET2, LMAX)
 
subroutine fact
 
subroutine signum
 
subroutine ccg (N, N1, NMAX, K1, K2, GG)
 
subroutine direct (N, M, N1, M1, NN, MM, C)
 
subroutine ccgin (N, N1, M, MM, G)
 
subroutine power (A, B, R1, R2)
 
double precision function zeroin (AX, BX, F, TOL)
 
double precision function f (R1)
 
subroutine distrb (NNK, YY, WY, NDISTR, AA, BB, GAM, R1, R2, REFF, VEFF, PI)
 
subroutine hovenr (L1, A1, A2, A3, A4, B1, B2)
 
subroutine matr (A1, A2, A3, A4, B1, B2, LMAX, NPNA, F)
 

Function/Subroutine Documentation

◆ calcrand()

subroutine calcrand (   RAT,
real*8  LAM,
real*8  MRR,
real*8  MRI,
  EPS,
  NP,
  DDELT,
  NDGS,
  NPNAX,
  AXMAX,
  B,
  GAM,
  NDISTR,
  NKMAX,
  NPNA,
  NCOEFF,
real*8  REFF,
real*8  VEFF,
real*8  CEXTIN,
real*8  CSCAT,
real*8  WALB,
real*8  ASYMM,
real*8, dimension(npna,4,4)  F 
)

Definition at line 362 of file tmd.lp.f.

◆ ccg()

subroutine ccg (   N,
  N1,
  NMAX,
  K1,
  K2,
real*8, dimension(npl1,npn6)  GG 
)

Definition at line 1209 of file tmd.lp.f.

◆ ccgin()

subroutine ccgin (   N,
  N1,
  M,
  MM,
  G 
)

Definition at line 1318 of file tmd.lp.f.

◆ direct()

subroutine direct (   N,
  M,
  N1,
  M1,
  NN,
  MM,
  C 
)

Definition at line 1299 of file tmd.lp.f.

◆ distrb()

subroutine distrb (   NNK,
real*8, dimension(nnk)  YY,
real*8, dimension(nnk)  WY,
  NDISTR,
  AA,
  BB,
  GAM,
  R1,
  R2,
  REFF,
  VEFF,
  PI 
)

Definition at line 1474 of file tmd.lp.f.

◆ f()

double precision function f (   R1)

Definition at line 1454 of file tmd.lp.f.

◆ fact()

subroutine fact

Definition at line 1161 of file tmd.lp.f.

◆ gsp()

subroutine gsp (   NMAX,
real*8  CSCA,
real*8  LAM,
real*8, dimension(npl)  ALF1,
real*8, dimension(npl)  ALF2,
real*8, dimension(npl)  ALF3,
real*8, dimension(npl)  ALF4,
real*8, dimension(npl)  BET1,
real*8, dimension(npl)  BET2,
  LMAX 
)

Definition at line 813 of file tmd.lp.f.

◆ hovenr()

subroutine hovenr (   L1,
real*8, dimension(l1)  A1,
real*8, dimension(l1)  A2,
real*8, dimension(l1)  A3,
real*8, dimension(l1)  A4,
real*8, dimension(l1)  B1,
real*8, dimension(l1)  B2 
)

Definition at line 1561 of file tmd.lp.f.

◆ matr()

subroutine matr ( real*8, dimension(npl)  A1,
real*8, dimension(npl)  A2,
real*8, dimension(npl)  A3,
real*8, dimension(npl)  A4,
real*8, dimension(npl)  B1,
real*8, dimension(npl)  B2,
  LMAX,
  NPNA,
real*8, dimension(npna,4,4)  F 
)

Definition at line 1615 of file tmd.lp.f.

◆ power()

subroutine power (   A,
  B,
  R1,
  R2 
)

Definition at line 1380 of file tmd.lp.f.

◆ signum()

subroutine signum

Definition at line 1178 of file tmd.lp.f.

◆ zeroin()

double precision function zeroin (   AX,
  BX,
  F,
  TOL 
)

Definition at line 1395 of file tmd.lp.f.