SLiMv2.1/functionlist.f90

Go to the documentation of this file.

  interface
     function centre(datain)
       implicit none
       include 'param.f90'
       real  datain(nx,ny,nz_max),centre(nx,ny,nz_max)
     end function centre
  end interface
  interface
     function centrebc(datain)
       implicit none
       include 'param.f90'
       real  datain(nx,ny,nz_max),centrebc(nx,ny)
     end function centrebc
  end interface
  interface
     function centref(datain)
       implicit none
       include 'param.f90'
       complex  datain(nx/2+1,ny,nz_max),centref(nx/2+1,ny,nz_max)
     end function centref
  end interface
  interface
     function ddxc(datain)
       implicit none
       include 'param.f90'
       complex  datain(nx/2+1,ny,nz_max),ddxc(nx/2+1,ny,nz_max)
     end function ddxc
  end interface
  interface
     function ddxe(datain)
       implicit none
       include 'param.f90'
       complex  datain(nx/2+1,ny,nz_max),ddxe(nx/2+1,ny,nz_max)
     end function ddxe
  end interface
  interface
     function ddyc(datain)
       implicit none
       include 'param.f90'
       complex  datain(nx/2+1,ny,nz_max),ddyc(nx/2+1,ny,nz_max)
     end function ddyc
  end interface
  interface
     function ddye(datain)
       implicit none
       include 'param.f90'
       complex  datain(nx/2+1,ny,nz_max),ddye(nx/2+1,ny,nz_max)
     end function ddye
  end interface
  interface
     function ddzc(datin)
       implicit none
       include 'param.f90'
       real datin(nx,ny,nz_max),ddzc(nx,ny,nz_max)
     end function ddzc
  end interface
  interface
     function ddze(datin)
       implicit none
       include 'param.f90'
       real datin(nx,ny,nz_max),ddze(nx,ny,nz_max)
     end function ddze
  end interface
  interface
     function ddzc_div(datin)
       implicit none
       include 'param.f90'
       real datin(nx,ny,nz_max),ddzc_div(nx,ny,nz_max)
     end function ddzc_div
  end interface
  interface
     function ddze_div(datin)
       implicit none
       include 'param.f90'
       real datin(nx,ny,nz_max),ddze_div(nx,ny,nz_max)
     end function ddze_div
  end interface
  interface
     function ddzc_curl(datin)
       implicit none
       include 'param.f90'
       real datin(nx,ny,nz_max),ddzc_curl(nx,ny,nz_max)
     end function ddzc_curl
  end interface
  interface
     function ddze_curl(datin)
       implicit none
       include 'param.f90'
       real datin(nx,ny,nz_max),ddze_curl(nx,ny,nz_max)
     end function ddze_curl
  end interface

  interface
     function d2fdz2(datain)
       implicit none
       include 'param.f90'
       complex  datain(nx/2+1,ny,nz_max),d2fdz2(nx/2+1,ny,nz_max)
     end function d2fdz2
  end interface
  interface
     FUNCTION RHC_RAN (RAN_SEED)
       !
       ! Random numbers GENERATOR BASED ON NR
       !
       IMPLICIT NONE
       INTEGER RAN_SEED,A,M,Q,R,BM,I
       REAL div_M,RHC_RAN
     END FUNCTION RHC_RAN
  end interface

---