M3_wrappers.f90

FUNCTION m3_f90_runconfig_read( runconfig, runconfigfilename, runtype )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_read
  TYPE(m3_f90_runconfig), INTENT(OUT)::runConfig
  CHARACTER(LEN=*), INTENT(IN)::runconfigfilename
  INTEGER(KIND=int4), INTENT(IN)::runtype

  m3_f90_runconfig_read = m3_f77_runconfig_read( runconfig, runconfigfilename, runtype )
END FUNCTION m3_f90_runconfig_read

FUNCTION m3_f90_runconfig_readbin( runconfig, runconfigfilename, runtype )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_readbin
  TYPE(m3_f90_runconfig), INTENT(OUT)::runConfig
  CHARACTER(LEN=*), INTENT(IN)::runconfigfilename
  INTEGER(KIND=int4), INTENT(IN)::runtype

  m3_f90_runconfig_readbin = m3_f77_runconfig_readbin( runconfig, runconfigfilename, runtype )
END FUNCTION m3_f90_runconfig_readbin

!!$FUNCTION m3_f90_runconfig_write( runconfig, runconfigfilename )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_runconfig_write
!!$  TYPE(m3_f90_runconfig), INTENT(IN)::runConfig
!!$  CHARACTER(LEN=*), INTENT(IN)::runconfigfilename
!!$
!!$  m3_f90_runconfig_write = m3_f77_runconfig_write( runconfig, runconfigfilename )
!!$END FUNCTION m3_f90_runconfig_write

FUNCTION m3_f90_runconfig_destroy( runconfig )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_destroy
  TYPE(m3_f90_runconfig), INTENT(INOUT)::runconfig

  m3_f90_runconfig_destroy = m3_f77_runconfig_destroy( runconfig )
END FUNCTION m3_f90_runconfig_destroy


FUNCTION m3_f90_runconfig_duplicate( inrunconfig, outrunconfig )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_duplicate
  TYPE(m3_f90_runconfig), INTENT(IN)::inrunconfig
  TYPE(m3_f90_runconfig), INTENT(OUT)::outrunconfig

  m3_f90_runconfig_duplicate = m3_f77_runconfig_duplicate( inrunconfig, outrunconfig )
END FUNCTION m3_f90_runconfig_duplicate


FUNCTION m3_f90_runconfig_getdatasetroot( runconfig, datasetroot )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_getdatasetroot
  TYPE(m3_f90_runconfig), INTENT(IN)::runconfig
  TYPE(m3_f90_dataset),INTENT(OUT)::datasetroot

  m3_f90_runconfig_getdatasetroot = m3_f77_runconfig_getdatasetroot( runconfig, datasetroot )
END FUNCTION m3_f90_runconfig_getdatasetroot


FUNCTION m3_f90_runconfig_getpixelclassroot( runconfig, pixelclassroot )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_getpixelclassroot
  TYPE(m3_f90_runconfig), INTENT(IN)::runconfig
  TYPE(m3_f90_pixelclass), INTENT(OUT)::pixelclassroot

  m3_f90_runconfig_getpixelclassroot = m3_f77_runconfig_getpixelclassroot( runconfig, pixelclassroot )
END FUNCTION m3_f90_runconfig_getpixelclassroot


FUNCTION m3_f90_runconfig_getpowerspectrum( runconfig, powerspectrum )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_getpowerspectrum
  TYPE(m3_f90_runconfig), INTENT(IN)::runconfig
  TYPE(m3_f90_powerspectrum),INTENT(OUT)::powerspectrum

  m3_f90_runconfig_getpowerspectrum = m3_f77_runconfig_getpowerspectrum( runconfig, powerspectrum )
END FUNCTION m3_f90_runconfig_getpowerspectrum

FUNCTION m3_f90_runconfig_gettodcache( runconfig, todcache )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_runconfig_gettodcache
  TYPE(m3_f90_runconfig), INTENT(IN)::runconfig
  TYPE(m3_f90_todcache), INTENT(OUT)::todcache

  m3_f90_runconfig_gettodcache = m3_f77_runconfig_gettodcache( runconfig, todcache )
END FUNCTION m3_f90_runconfig_gettodcache

FUNCTION m3_f90_dataset_getnextnodeinlist( datasetnode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getnextnodeinlist
  TYPE(m3_f90_dataset),INTENT(INOUT)::datasetnode

  m3_f90_dataset_getnextnodeinlist = m3_f77_dataset_getnextnodeinlist( datasetnode )
END FUNCTION m3_f90_dataset_getnextnodeinlist


FUNCTION m3_f90_dataset_getcoveredintervalroot( datasetnode, intervalroot )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getcoveredintervalroot
  TYPE(m3_f90_dataset), INTENT(IN)::datasetnode
  TYPE(m3_f90_interval), INTENT(OUT)::intervalroot

  m3_f90_dataset_getcoveredintervalroot = m3_f77_dataset_getcoveredintervalroot( datasetnode, intervalroot )
END FUNCTION m3_f90_dataset_getcoveredintervalroot

FUNCTION m3_f90_dataset_getnumnz( datasetnode, numnz )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getnumnz
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  INTEGER(KIND=int4),INTENT(OUT)::numnz

  m3_f90_dataset_getnumnz = m3_f77_dataset_getnumnz( datasetnode, numnz )
END FUNCTION m3_f90_dataset_getnumnz



FUNCTION m3_f90_dataset_getpointingclassroot( datasetnode, pointingclassroot )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getpointingclassroot
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  TYPE(m3_f90_pointingclass),INTENT(OUT)::pointingclassroot

   m3_f90_dataset_getpointingclassroot = m3_f77_dataset_getpointingclassroot( datasetnode, pointingclassroot )
END FUNCTION m3_f90_dataset_getpointingclassroot



FUNCTION m3_f90_dataset_gettod( datasetnode, firstsample, lastsample, tod )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_gettod
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  INTEGER(KIND=int8),INTENT(IN)::firstsample
  INTEGER(KIND=int8),INTENT(IN)::lastsample
  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::tod

  m3_f90_dataset_gettod = m3_f77_dataset_gettod( datasetnode, firstsample, lastsample, tod )
END FUNCTION m3_f90_dataset_gettod



FUNCTION m3_f90_dataset_getpointing( datasetnode, firstsample, lastsample, pointing_pixel, pointing_weight )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getpointing
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  INTEGER(KIND=int8),INTENT(IN)::firstsample
  INTEGER(KIND=int8),INTENT(IN)::lastsample
  INTEGER(KIND=int4),DIMENSION(:,:),INTENT(OUT)::pointing_pixel
  REAL(KIND=float),DIMENSION(:,:),INTENT(OUT)::pointing_weight

  m3_f90_dataset_getpointing = m3_f77_dataset_getpointing( datasetnode, firstsample, lastsample, pointing_pixel, pointing_weight )
END FUNCTION m3_f90_dataset_getpointing



SUBROUTINE m3_f90_dataset_geteuler( datasetnode, firstsample, lastSample, eulerangles )
  USE M3_typesf
  IMPLICIT NONE
  TYPE(m3_f90_dataset), INTENT(IN)::datasetnode
  INTEGER(KIND=int8), INTENT(IN)::firstsample
  INTEGER(KIND=int8), INTENT(IN)::lastsample
  REAL(KIND=DOUBLE), DIMENSION(:), INTENT(OUT)::eulerangles

  call m3_f77_dataset_geteuler( datasetnode, firstsample, lastSample, eulerangles )
END SUBROUTINE m3_f90_dataset_geteuler
 

FUNCTION m3_f90_dataset_GetNoiseFileRoot( datasetnode, noiseFileRoot )
  USE M3_typesf
  INTEGER(KIND=int4)::m3_f90_dataset_GetNoiseFileRoot
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  TYPE(m3_f90_file),INTENT(OUT):: noisefileroot

  m3_f90_dataset_GetNoiseFileRoot = m3_f77_dataset_GetNoiseFileRoot( datasetnode, noiseFileRoot )
END FUNCTION m3_f90_dataset_GetNoiseFileRoot



FUNCTION m3_f90_dataset_getnoisecorlength( datasetnode, sample, corlength )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getnoisecorlength
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  INTEGER(KIND=int8),INTENT(IN)::sample
  INTEGER(KIND=int8),INTENT(OUT)::corlength

  m3_f90_dataset_getnoisecorlength = m3_f77_dataset_getnoisecorlength( datasetnode, sample, corlength )
END FUNCTION m3_f90_dataset_getnoisecorlength



FUNCTION m3_f90_dataset_getnoise( datasetnode, sample, noise )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_dataset_getnoise
  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
  INTEGER(KIND=int8),INTENT(IN)::sample
  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::noise

  m3_f90_dataset_getnoise = m3_f77_dataset_getnoise( datasetnode, sample, noise )
END FUNCTION m3_f90_dataset_getnoise



!!$FUNCTION m3_f90_dataset_getfilterlength( datasetnode, sample, filtertype, filterlength )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_dataset_getfilterlength
!!$  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
!!$  INTEGER(KIND=int8),INTENT(IN)::sample
!!$  INTEGER(KIND=int4),INTENT(IN)::filtertype
!!$  INTEGER(KIND=int8),INTENT(OUT)::filterlength
!!$
!!$  m3_f90_dataset_getfilterlength = m3_f77_dataset_getfilterlength( datasetnode, sample, filtertype, filterlength )
!!$END FUNCTION m3_f90_dataset_getfilterlength



!!$FUNCTION m3_f90_dataset_getfilter( datasetnode, sample, filtertype, filter )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_dataset_getfilter
!!$  TYPE(m3_f90_dataset),INTENT(IN)::datasetnode
!!$  INTEGER(KIND=int8),INTENT(IN)::sample
!!$  INTEGER(KIND=int4),INTENT(IN)::filtertype
!!$  REAL(KIND=DOUBLE),DIMENSION(:,:),INTENT(OUT)::filter
!!$
!!$  m3_f90_dataset_getfilter = m3_f77_dataset_getfilter( datasetnode, sample, filtertype, filter )
!!$END FUNCTION m3_f90_dataset_getfilter



FUNCTION m3_f90_pixelclass_getnextnodeinlist( pixelclassnode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getnextnodeinlist
  TYPE(m3_f90_pixelclass),INTENT(INOUT)::pixelclassnode

  m3_f90_pixelclass_getnextnodeinlist = m3_f77_pixelclass_getnextnodeinlist( pixelclassnode )
END FUNCTION m3_f90_pixelclass_getnextnodeinlist



FUNCTION m3_f90_pixelclass_getclassname( pixelclassnode, classname )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getclassname
  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode 
  CHARACTER(LEN=*),INTENT(OUT)::classname

  m3_f90_pixelclass_getclassname = m3_f77_pixelclass_getclassname( pixelclassnode, classname )
END FUNCTION m3_f90_pixelclass_getclassname



FUNCTION m3_f90_pixelclass_getpixeltype( pixelclassnode, pixeltype )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getpixeltype
  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
  INTEGER(KIND=int4),INTENT(OUT)::pixeltype

  m3_f90_pixelclass_getpixeltype = m3_f77_pixelclass_getpixeltype( pixelclassnode, pixeltype )
END FUNCTION m3_f90_pixelclass_getpixeltype



FUNCTION m3_f90_pixelclass_getnumpixelinclass( pixelclassnode, numpixelinclass )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getnumpixelinclass
  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
  INTEGER(KIND=int4),INTENT(OUT)::numpixelinclass

  m3_f90_pixelclass_getnumpixelinclass = m3_f77_pixelclass_getnumpixelinclass( pixelclassnode, numpixelinclass );
END FUNCTION m3_f90_pixelclass_getnumpixelinclass



FUNCTION m3_f90_pixelclass_getnumpixelinmap( pixelclassnode, numpixelinmap )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getnumpixelinmap
  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
  INTEGER(KIND=int4),INTENT(OUT)::numpixelinmap

  m3_f90_pixelclass_getnumpixelinmap = m3_f77_pixelclass_getnumpixelinmap( pixelclassnode, numpixelinmap )
END FUNCTION m3_f90_pixelclass_getnumpixelinmap



FUNCTION m3_f90_pixelclass_getmapname( pixelclassnode, mapname )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getmapname
  TYPE(m3_f90_pixelclass), INTENT(IN)::pixelclassnode
  CHARACTER(LEN=*),INTENT(OUT)::mapname

  m3_f90_pixelclass_getmapname = m3_f77_pixelclass_getmapname( pixelclassnode, mapname )
END FUNCTION m3_f90_pixelclass_getmapname



!!$FUNCTION m3_f90_pixelclass_getindexedmap( pixelclassnode, index, map )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_pixelclass_getindexedmap
!!$  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
!!$  INTEGER(KIND=int4),DIMENSION(:),INTENT(IN)::index
!!$  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::map
!!$
!!$  m3_f90_pixelclass_getindexedmap = m3_f77_pixelclass_getindexedmap( pixelclassnode, index, map )
!!$END FUNCTION m3_f90_pixelclass_getindexedmap



!!$FUNCTION m3_f90_pixelclass_getindexedcoord( pixelclassnode, numpixel, index, coord )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_pixelclass_getindexedcoord
!!$  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
!!$  INTEGER(KIND=int4),INTENT(IN)::numpixel
!!$  INTEGER(KIND=int4),DIMENSION(:),INTENT(IN)::index
!!$  REAL(KIND=DOUBLE),DIMENSION(:,:),INTENT(OUT)::coord
!!$
!!$  m3_f90_pixelclass_getindexedcoord = m3_f77_pixelclass_getindexedcoord( pixelclassnode, numpixel, index, coord )
!!$END FUNCTION m3_f90_pixelclass_getindexedcoord



FUNCTION m3_f90_pixelclass_getwindow( pixelclassnode, lmax, window )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_getwindow
  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
  INTEGER(KIND=int4),INTENT(IN)::lmax
  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::window
   
  m3_f90_pixelclass_getwindow = m3_f77_pixelclass_getwindow( pixelclassnode, lmax, window )
END FUNCTION m3_f90_pixelclass_getwindow



!!$FUNCTION m3_f90_pixelclass_getindexedmask( pixelclassnode, numpixel, index, mask )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_pixelclass_getindexedmask
!!$  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
!!$  INTEGER(KIND=int4),INTENT(IN)::numpixel
!!$  INTEGER(KIND=int4),DIMENSION(:),INTENT(IN)::index
!!$  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::mask
!!$
!!$  m3_f90_pixelclass_getindexedmask = m3_f77_pixelclass_getindexedmask( pixelclassnode, numpixel, index, mask )
!!$END FUNCTION m3_f90_pixelclass_getindexedmask



FUNCTION m3_f90_pixelclass_gettemplatefileroot( pixelclassnode, templatefileroot )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_pixelclass_gettemplatefileroot
  TYPE(m3_f90_pixelclass),INTENT(IN)::pixelclassnode
  TYPE(m3_f90_file),INTENT(OUT)::templatefileroot

  m3_f90_pixelclass_gettemplatefileroot = m3_f77_pixelclass_gettemplatefileroot( pixelclassnode, templatefileroot )
END FUNCTION m3_f90_pixelclass_gettemplatefileroot



FUNCTION m3_f90_powerspectrum_getnumbin( powerspectrum, numbin )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_powerspectrum_getnumbin
  TYPE(m3_f90_powerspectrum),INTENT(IN)::powerspectrum
  INTEGER(KIND=int4),INTENT(OUT)::numbin

  m3_f90_powerspectrum_getnumbin = m3_f77_powerspectrum_getnumbin( powerspectrum, numbin) 
END FUNCTION m3_f90_powerspectrum_getnumbin



FUNCTION m3_f90_powerspectrum_getspectrumclassroot( powerspectrum, spectrumclassroot )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_powerspectrum_getspectrumclassroot
  TYPE(m3_f90_powerspectrum),INTENT(IN)::powerspectrum
  TYPE(m3_f90_spectrumclass),INTENT(OUT)::spectrumclassroot

  m3_f90_powerspectrum_getspectrumclassroot = m3_f77_powerspectrum_getspectrumclassroot( powerspectrum, spectrumclassroot )
END FUNCTION m3_f90_powerspectrum_getspectrumclassroot



FUNCTION m3_f90_powerspectrum_getfishermatrix( powerspectrum, fishermatrix )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_powerspectrum_getfishermatrix
  TYPE(m3_f90_powerspectrum),INTENT(IN)::powerspectrum
  REAL(KIND=DOUBLE),DIMENSION(:,:),INTENT(OUT)::fishermatrix

  m3_f90_powerspectrum_getfishermatrix = m3_f77_powerspectrum_getfishermatrix( powerspectrum, fishermatrix )
END FUNCTION m3_f90_powerspectrum_getfishermatrix



FUNCTION m3_f90_spectrumclass_getspectrumtype( spectrumclassnode, spectrumtype )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_spectrumclass_getspectrumtype
  TYPE(m3_f90_spectrumclass),INTENT(IN)::spectrumclassnode
  INTEGER(KIND=int4)::spectrumtype

  m3_f90_spectrumclass_getspectrumtype = m3_f77_spectrumclass_getspectrumtype( spectrumclassnode, spectrumtype )
END FUNCTION m3_f90_spectrumclass_getspectrumtype



FUNCTION m3_f90_spectrumclass_getmultipolemax( spectrumclassnode, lmax )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_spectrumclass_getmultipolemax
  TYPE(m3_f90_spectrumclass),INTENT(IN)::spectrumclassnode
  INTEGER(KIND=int4),INTENT(OUT)::lmax

  m3_f90_spectrumclass_getmultipolemax = m3_f77_spectrumclass_getmultipolemax( spectrumclassnode, lmax )
END FUNCTION m3_f90_spectrumclass_getmultipolemax



FUNCTION m3_f90_spectrumclass_getnumbin( spectrumclassnode, numbin )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_spectrumclass_getnumbin
  TYPE(m3_f90_spectrumclass),INTENT(IN)::spectrumclassnode
  INTEGER(KIND=int4),INTENT(OUT)::numbin

  m3_f90_spectrumclass_getnumbin = m3_f77_spectrumclass_getnumbin( spectrumclassnode, numbin )
END FUNCTION m3_f90_spectrumclass_getnumbin



FUNCTION m3_f90_spectrumclass_getshape( spectrumclassnode, shape )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_spectrumclass_getshape
  TYPE(m3_f90_spectrumclass),INTENT(IN)::spectrumclassnode
  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::shape

  m3_f90_spectrumclass_getshape = m3_f77_spectrumclass_getshape( spectrumclassnode, shape )
END FUNCTION m3_f90_spectrumclass_getshape



FUNCTION m3_f90_spectrumclass_getbin( spectrumclassnode, bin )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_spectrumclass_getbin
  TYPE(m3_f90_spectrumclass),INTENT(IN)::spectrumclassnode
  INTEGER(KIND=int4),DIMENSION(:,:),INTENT(OUT)::bin

  m3_f90_spectrumclass_getbin = m3_f77_spectrumclass_getbin( spectrumclassnode, bin )
END FUNCTION m3_f90_spectrumclass_getbin



!!$FUNCTION m3_f90_spectrumclass_getbps( spectrumclassnode, bps )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_spectrumclass_getbps
!!$  TYPE(m3_f90_spectrumclass),INTENT(IN)::spectrumclassnode
!!$  REAL(KIND=DOUBLE),DIMENSION(:,:),INTENT(OUT)::bps
!!$
!!$  m3_f90_spectrumclass_getbps = m3_f77_spectrumclass_getbps( spectrumclassnode, bps )
!!$END FUNCTION m3_f90_spectrumclass_getbps



FUNCTION m3_f90_interval_getnextnodeinlist( intervalnode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_interval_getnextnodeinlist
  TYPE(m3_f90_interval),INTENT(INOUT)::intervalnode 

  m3_f90_interval_getnextnodeinlist = m3_f77_interval_getnextnodeinlist( intervalnode )
END FUNCTION m3_f90_interval_getnextnodeinlist



FUNCTION m3_f90_interval_getinterval( intervalnode, firstsample, lastsample )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_interval_getinterval
  TYPE(m3_f90_interval),INTENT(IN)::intervalnode 
  INTEGER(KIND=int8),INTENT(OUT)::firstsample
  INTEGER(KIND=int8),INTENT(OUT)::lastsample

  m3_f90_interval_getinterval = m3_f77_interval_getinterval( intervalnode, firstsample, lastsample )
END FUNCTION 



FUNCTION m3_f90_file_getnextnodeinlist( filenode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_file_getnextnodeinlist
  TYPE(m3_f90_file),INTENT(INOUT)::filenode

  m3_f90_file_getnextnodeinlist = m3_f77_file_getnextnodeinlist( filenode )
END FUNCTION m3_f90_file_getnextnodeinlist



!!$FUNCTION m3_f90_File_GetIndexedTemplate( templatefilenode, numpixel, index, TEMPLATE)
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_File_GetIndexedTemplate
!!$  TYPE(m3_f90_file),INTENT(IN)::templatefilenode
!!$  INTEGER(KIND=int4),INTENT(IN)::numpixel
!!$  INTEGER(KIND=int4),DIMENSION(:),INTENT(IN)::index
!!$  REAL(KIND=DOUBLE),DIMENSION(:),INTENT(OUT)::TEMPLATE
!!$
!!$  m3_f90_File_GetIndexedTemplate = m3_f77_File_GetIndexedTemplate( templatefilenode, numpixel, index, TEMPLATE)
!!$END FUNCTION m3_f90_File_GetIndexedTemplate



FUNCTION m3_f90_File_GetNoiseInterval( noiseFileNode, firstsample, lastsample)
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4):: m3_f90_File_GetNoiseInterval
  TYPE(m3_f90_file),INTENT(IN):: noiseFileNode
  INTEGER(KIND=int8),INTENT(OUT):: firstsample
  INTEGER(KIND=int8),INTENT(OUT):: lastsample

  m3_f90_File_GetNoiseInterval = m3_f77_File_GetNoiseInterval( noiseFileNode, firstsample, lastsample)
END FUNCTION m3_f90_File_GetNoiseInterval
   


!!$FUNCTION m3_f90_File_GetNoiseCorLength( noiseFileNode, corLength)
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_File_GetNoiseCorLength
!!$  TYPE(m3_f90_file),INTENT(IN):: noiseFileNode
!!$  INTEGER(KIND=int8),INTENT(OUT)::corLength
!!$
!!$  m3_f90_File_GetNoiseCorLength = m3_f77_File_GetNoiseCorLength( noiseFileNode, corLength)
!!$END FUNCTION m3_f90_File_GetNoiseCorLength
!!$
!!$
!!$
!!$FUNCTION m3_f90_File_GetNoise( noiseFileNode, noise)
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_File_GetNoise
!!$  TYPE(m3_f90_file),INTENT(IN):: noiseFileNode
!!$  REAL(KIND=DOUBLE),INTENT(OUT)::noise
!!$
!!$  m3_f90_File_GetNoise = m3_f77_File_GetNoise( noiseFileNode, noise)
!!$END FUNCTION m3_f90_File_GetNoise



FUNCTION m3_f90_PointingClass_GetNextNodeInList( pointingClassNode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4):: m3_f90_PointingClass_GetNextNodeInList
  TYPE(m3_f90_pointingclass),INTENT(inout)::pointingClassNode

  m3_f90_PointingClass_GetNextNodeInList = m3_f77_PointingClass_GetNextNodeInList( pointingClassNode )
END FUNCTION m3_f90_PointingClass_GetNextNodeInList



FUNCTION M3_f90_PointingClass_GetNumNZ( pointingClassNode,numNZ )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4):: M3_f90_PointingClass_GetNumNZ
  TYPE(m3_f90_pointingclass),INTENT(IN):: pointingClassNode
  INTEGER(KIND=int4),INTENT(OUT)::numNZ

  M3_f90_PointingClass_GetNumNZ = M3_f77_PointingClass_GetNumNZ( pointingClassNode,numNZ )
END FUNCTION M3_f90_PointingClass_GetNumNZ



FUNCTION M3_f90_PointingClass_GetPixelClassNode( pointingClassNode,pixelClassNode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4):: M3_f90_PointingClass_GetPixelClassNode
  TYPE(m3_f90_pointingclass),INTENT(IN):: pointingClassNode
  TYPE(m3_f90_pixelclass),INTENT(OUT):: pixelClassNode

  M3_f90_PointingClass_GetPixelClassNode = M3_f77_PointingClass_GetPixelClassNode( pointingClassNode,pixelClassNode )
END FUNCTION M3_f90_PointingClass_GetPixelClassNode



SUBROUTINE M3_f90_DataSet_SampleIntervalToTimeInterval( dataSetNode, firstSample, lastSample, timeInterval)
  USE M3_typesf
  IMPLICIT NONE
  TYPE (M3_f90_DataSet), INTENT(IN)::dataSetNode
  INTEGER (KIND=int8),INTENT(IN)::firstSample
  INTEGER (KIND=int8),INTENT(IN)::lastSample
  REAL(KIND=DOUBLE),DIMENSION(4), INTENT(OUT)::timeInterval

  call M3_f77_DataSet_SampleIntervalToTimeInterval( dataSetNode, firstSample, lastSample, timeInterval)
END SUBROUTINE M3_f90_DataSet_SampleIntervalToTimeInterval



SUBROUTINE M3_f90_TimeInterval_InsertInterval( timeIntervalList, timeInterval )
  USE M3_typesf
  IMPLICIT NONE
  TYPE (M3_f90_TimeInterval), INTENT(OUT)::timeIntervalList
  REAL(KIND=DOUBLE),DIMENSION(4),INTENT(IN)::timeInterval

  call M3_f77_TimeInterval_InsertInterval( timeIntervalList, timeInterval )
END SUBROUTINE M3_f90_TimeInterval_InsertInterval



SUBROUTINE M3_f90_TimeInterval_DestroyList( timeIntervalList) 
  USE M3_typesf
  IMPLICIT NONE
  TYPE (M3_f90_TimeInterval), INTENT(INOUT)::timeIntervalList

  call M3_f77_TimeInterval_DestroyList( timeIntervalList )
END SUBROUTINE M3_f90_TimeInterval_DestroyList



FUNCTION M3_f90_DataSet_GetGCPointingGroupNode(dataSetNode, GCPointingGroupNode )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::M3_f90_DataSet_GetGCPointingGroupNode
  TYPE (M3_f90_DataSet), INTENT(IN)::dataSetNode
  TYPE (M3_f90_GCPointingGroup), INTENT(OUT)::GCPointingGroupNode

  M3_f90_DataSet_GetGCPointingGroupNode = M3_f77_DataSet_GetGCPointingGroupNode(dataSetNode, GCPointingGroupNode )
END FUNCTION M3_f90_DataSet_GetGCPointingGroupNode



SUBROUTINE M3_f90_GCPointingGroup_GetStoreSize( GCPointingGroupNode, timeIntervalList, storeLength )
  USE M3_typesf
  IMPLICIT NONE
  TYPE (M3_f90_GCPointingGroup), INTENT(IN)::GCPointingGroupNode
  TYPE (M3_f90_TimeInterval), INTENT(IN)::timeIntervalList
  INTEGER (KIND=int8),INTENT(OUT)::storeLength

  call M3_f77_GCPointingGroup_GetStoreSize( GCPointingGroupNode, timeIntervalList, storeLength )
END SUBROUTINE M3_f90_GCPointingGroup_GetStoreSize



SUBROUTINE M3_f90_GCPointingGroup_InitializeStore( GCPointingGroupNode, timeIntervalList, workSpace )
  USE M3_typesf
  IMPLICIT NONE
  TYPE(M3_f90_GCPointingGroup), INTENT(IN)::GCPointingGroupNode
  TYPE(M3_f90_TimeInterval), INTENT(IN)::timeIntervalList
  INTEGER (KIND=int4),DIMENSION(:), INTENT(IN)::workspace

  call M3_f77_GCPointingGroup_InitializeStore( GCPointingGroupNode, timeIntervalList, workSpace )
END SUBROUTINE M3_f90_GCPointingGroup_InitializeStore



SUBROUTINE M3_f90_GCPointingGroup_DestroyStore( GCPointingGroupNode, destroyAuxStore )
  USE M3_typesf
  IMPLICIT NONE
  TYPE (M3_f90_GCPointingGroup), INTENT(IN)::GCPointingGroupNode
  INTEGER (KIND=int4)::destroyAuxStore

  call M3_f77_GCPointingGroup_DestroyStore( GCPointingGroupNode, destroyAuxStore )
END SUBROUTINE M3_f90_GCPointingGroup_DestroyStore



FUNCTION M3_f90_TODcache_AppendRequest( todcache, dataset, requestfirstsample, requestlastsample )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_appendrequest
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache
  TYPE (m3_f90_dataset), INTENT(IN)::dataset 
  INTEGER(KIND=int8), INTENT(IN)::requestfirstsample
  INTEGER(KIND=int8), INTENT(IN)::requestlastsample

  M3_f90_TODcache_AppendRequest = M3_f77_TODcache_AppendRequest( todcache, dataset, requestfirstsample, requestlastsample )
END FUNCTION M3_f90_TODcache_AppendRequest



!!$FUNCTION M3_f90_TODcache_AppendRequestList( todcache, dataset, requestintervallist )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_todcache_appendrequestlist
!!$  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache
!!$  TYPE (m3_f90_dataset), INTENT(IN)::dataset
!!$  TYPE (m3_f90_interval), INTENT(IN)::requestintervallist
!!$
!!$  M3_f90_TODcache_AppendRequestList = M3_f77_TODcache_AppendRequestList( todcache, dataset, requestintervallist )
!!$END FUNCTION M3_f90_TODcache_AppendRequestList



FUNCTION M3_f90_TODcache_Initialize( todcache, runconfig, storesize )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_initialize
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache
  TYPE (m3_f90_runconfig), INTENT(IN)::runconfig
  INTEGER(KIND=int8), INTENT(OUT)::storesize

  M3_f90_TODcache_Initialize = M3_f77_TODcache_Initialize( todcache, runconfig, storesize )
END FUNCTION M3_f90_TODcache_Initialize



FUNCTION M3_f90_TODcache_Destroy( todcache )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_destroy
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache

  M3_f90_TODcache_Destroy = M3_f77_TODcache_Destroy( todcache )
END FUNCTION M3_f90_TODcache_Destroy



FUNCTION M3_f90_TODcache_SetCacheAll( todcache )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_setcacheall
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache

  M3_f90_TODcache_SetCacheAll = M3_f77_TODcache_SetCacheAll( todcache )
END FUNCTION M3_f90_TODcache_SetCacheAll



FUNCTION M3_f90_TODcache_SetCacheNone( todcache )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_setcachenone
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache

  M3_f90_TODcache_SetCacheNone = M3_f77_TODcache_SetCacheNone( todcache )
END FUNCTION M3_f90_TODcache_SetCacheNone



FUNCTION M3_f90_TODcache_SetCacheGCPdata( todcache, usegcpcache )
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_setcachegcpdata
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache
  INTEGER(KIND=int4), INTENT(IN)::usegcpcache

  M3_f90_TODcache_SetCacheGCPdata = M3_f77_TODcache_SetCacheGCPdata( todcache, usegcpcache )
END FUNCTION M3_f90_TODcache_SetCacheGCPdata



FUNCTION M3_f90_TODcache_SetCacheScanMapData( todcache, usescanmapcache) 
  USE M3_typesf
  IMPLICIT NONE
  INTEGER(KIND=int4)::m3_f90_todcache_setcachescanmapdata
  TYPE (m3_f90_todcache), INTENT(INOUT)::todcache
  INTEGER(KIND=int4)::usescanmapcache

  M3_f90_TODcache_SetCacheScanMapData = M3_f77_TODcache_SetCacheScanMapData( todcache, usescanmapcache) 
END FUNCTION M3_f90_TODcache_SetCacheScanMapData



!!$FUNCTION M3_f90_TODcache_GetStoreSizeAllUB( todcache, upperbound )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_todcache_getstoresizeallub
!!$  TYPE (m3_f90_todcache), INTENT(IN)::todcache
!!$  INTEGER(KIND=int8)::upperbound
!!$
!!$  M3_f90_TODcache_GetStoreSizeAllUB = M3_f77_TODcache_GetStoreSizeAllUB( todcache, upperbound )
!!$END FUNCTION M3_f90_TODcache_GetStoreSizeAllUB
!!$
!!$
!!$
!!$FUNCTION M3_f90_TODcache_GetStoreSizeGCP( todcache, gcpstoresize )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_todcache_getstoresizegcp
!!$  TYPE (m3_f90_todcache), INTENT(IN)::todcache
!!$  INTEGER(KIND=int8)::gcpstoresize
!!$
!!$  M3_f90_TODcache_GetStoreSizeGCP = M3_f77_TODcache_GetStoreSizeGCP( todcache, gcpstoresize )
!!$END FUNCTION M3_f90_TODcache_GetStoreSizeGCP
!!$
!!$
!!$
!!$FUNCTION M3_f90_TODcache_GetStoreSizeScanMapUB( todcache, upperbound )
!!$  USE M3_typesf
!!$  IMPLICIT NONE
!!$  INTEGER(KIND=int4)::m3_f90_todcache_getstoresizescanmapub
!!$  TYPE (m3_f90_todcache), INTENT(IN)::todcache
!!$  INTEGER(KIND=int8)::upperbound
!!$
!!$  M3_f90_TODcache_GetStoreSizeScanMapUB = M3_f77_TODcache_GetStoreSizeScanMapUB( todcache, upperbound )
!!$END FUNCTION M3_f90_TODcache_GetStoreSizeScanMapUB

---