|
|
! -*- f90 -*-
|
|
|
! Note: the context of this file is case sensitive.
|
|
|
|
|
|
python module mkfact_short_2020_2 ! in
|
|
|
interface ! in :mkfact_short_2020
|
|
|
subroutine mkfact(tm,h,bfm,thb,bki,nhts) ! in :mkfact_short_2020:mkfact_short1.f
|
|
|
real intent(in) :: tm
|
|
|
integer intent(in) :: nhts
|
|
|
real dimension(nhts),intent(in):: h
|
|
|
real dimension(nhts),intent(inout),depend(nhts) :: bfm
|
|
|
real dimension(nhts),intent(inout),depend(nhts) :: thb
|
|
|
real dimension(nhts),intent(inout),depend(nhts) :: bki
|
|
|
end subroutine mkfact
|
|
|
subroutine geobfield(tm,r,theta,phi,br,bt,bp,b) ! in ::mkfact_short_2020:mkfact_short1.f
|
|
|
real :: tm
|
|
|
real :: r
|
|
|
real :: theta
|
|
|
real :: phi
|
|
|
real :: br
|
|
|
real :: bt
|
|
|
real :: bp
|
|
|
real :: b
|
|
|
end subroutine geobfield
|
|
|
subroutine convrt(i,gdlat,gdalt,gclat,rkm) ! in ::mkfact_short_2020:mkfact_short1.f
|
|
|
integer :: i
|
|
|
real :: gdlat
|
|
|
real :: gdalt
|
|
|
real :: gclat
|
|
|
real :: rkm
|
|
|
end subroutine convrt
|
|
|
subroutine getshc2(iu,fspec,nmax,erad,gh,ier) ! in ::mkfact_short_2020:mkfact_short1.f
|
|
|
integer :: iu
|
|
|
character*(*) :: fspec
|
|
|
integer :: nmax
|
|
|
real :: erad
|
|
|
real dimension(*) :: gh
|
|
|
integer :: ier
|
|
|
end subroutine getshc2
|
|
|
subroutine interpshc(date,dte1,nmax1,gh1,dte2,nmax2,gh2,nmax,gh) ! in ::mkfact_short_2020:mkfact_short1.f
|
|
|
real :: date
|
|
|
real :: dte1
|
|
|
integer :: nmax1
|
|
|
real dimension(*) :: gh1
|
|
|
real :: dte2
|
|
|
integer :: nmax2
|
|
|
real dimension(*) :: gh2
|
|
|
integer :: nmax
|
|
|
real dimension(*) :: gh
|
|
|
end subroutine interpshc
|
|
|
subroutine extrapshc(date,dte1,nmax1,gh1,nmax2,gh2,nmax,gh) ! in ::mkfact_short_2020:mkfact_short1.f
|
|
|
real :: date
|
|
|
real :: dte1
|
|
|
integer :: nmax1
|
|
|
real dimension(*) :: gh1
|
|
|
integer :: nmax2
|
|
|
real dimension(*) :: gh2
|
|
|
integer :: nmax
|
|
|
real dimension(*) :: gh
|
|
|
end subroutine extrapshc
|
|
|
subroutine shval3(igdgc,flat,flon,elev,erad,a2,b2,nmax,gh,iext,ext,x,y,z) ! in :mkfact_short:mkfact_short.f
|
|
|
integer :: igdgc
|
|
|
real :: flat
|
|
|
real :: flon
|
|
|
real :: elev
|
|
|
real :: erad
|
|
|
real :: a2
|
|
|
real :: b2
|
|
|
integer :: nmax
|
|
|
real dimension(224) :: gh
|
|
|
integer :: iext
|
|
|
real dimension(3) :: ext
|
|
|
real :: x
|
|
|
real :: y
|
|
|
real :: z
|
|
|
end subroutine shval3
|
|
|
end interface
|
|
|
end python module mkfact_short_2020_2
|
|
|
|
|
|
! This file was auto-generated with f2py (version:2).
|
|
|
! See http://cens.ioc.ee/projects/f2py2e/
|
|
|
|
