M3_f.f90

!!$****************************************************************************
!!$  M3:  M3_f.f90                                           *
!!$                                                                           *
!!$  Version 1.0 September 2004                                               *
!!$                                                                           *
!!$  Copyright (C) 2004  C.M. Cantalupo & G. de Gasperis                      *
!!$                                                                           *
!!$  This program is free software; you can redistribute it and/or modify     *
!!$  it under the terms of the GNU General Public License as published by     *
!!$  the Free Software Foundation; either version 2 of the License, or        *
!!$  (at your option) any later version.                                      *
!!$                                                                           *
!!$  This program is distributed in the hope that it will be useful,          *
!!$  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
!!$  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            *
!!$  GNU General Public License for more details.                             *
!!$                                                                           *
!!$  You should have received a copy of the GNU General Public License        *
!!$  along with this program; if not, write to the Free Software              *
!!$  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA *
!!$                                                                           *
!!$****************************************************************************

MODULE M3_f

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_read
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_readbin
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_write
  END INTERFACE

  INTERFACE 
     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
     END FUNCTION m3_f90_runconfig_destroy
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_duplicate
  END INTERFACE

  INTERFACE 
     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
     END FUNCTION m3_f90_runconfig_getdatasetroot
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_runconfig_getpixelclassroot
  END INTERFACE

  INTERFACE 
     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
     END FUNCTION m3_f90_runconfig_getpowerspectrum
  END INTERFACE

  INTERFACE
    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
    END FUNCTION m3_f90_runconfig_gettodcache
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getnextnodeinlist
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getcoveredintervalroot
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getnumnz
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getpointingclassroot
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_gettod
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getpointing
  END INTERFACE

  INTERFACE
    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
    END SUBROUTINE m3_f90_dataset_geteuler
 END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_GetNoiseFileRoot
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getnoisecorlength
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getnoise
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getfilterlength
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_dataset_getfilter
  END INTERFACE

  INTERFACE
     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 
     END FUNCTION m3_f90_pixelclass_getnextnodeinlist
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getclassname
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getpixeltype
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getnumpixelinclass
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getnumpixelinmap
  END INTERFACE

  INTERFACE
    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
    END FUNCTION m3_f90_pixelclass_getmapname
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getindexedmap
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getindexedcoord
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getwindow
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_getindexedmask
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_pixelclass_gettemplatefileroot
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_powerspectrum_getnumbin
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_powerspectrum_getspectrumclassroot
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_powerspectrum_getfishermatrix
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_spectrumclass_getspectrumtype
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_spectrumclass_getmultipolemax
  END INTERFACE

  INTERFACE 
     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
     END FUNCTION m3_f90_spectrumclass_getnumbin
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_spectrumclass_getshape
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_spectrumclass_getbin
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_spectrumclass_getbps
  END INTERFACE

  INTERFACE
     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 
     END FUNCTION m3_f90_interval_getnextnodeinlist
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_interval_getinterval
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_file_getnextnodeinlist
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_File_GetIndexedTemplate
  END INTERFACE

  INTERFACE
     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
       END FUNCTION m3_f90_File_GetNoiseInterval
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_File_GetNoiseCorLength
  END INTERFACE

  INTERFACE
     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
     END FUNCTION m3_f90_File_GetNoise
  END INTERFACE

  INTERFACE
     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 
     END FUNCTION m3_f90_PointingClass_GetNextNodeInList
  END INTERFACE

  INTERFACE
     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
     END FUNCTION M3_f90_PointingClass_GetNumNZ
  END INTERFACE

  INTERFACE
     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
     END FUNCTION M3_f90_PointingClass_GetPixelClassNode
  END INTERFACE

INTERFACE
  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
  END SUBROUTINE M3_f90_DataSet_SampleIntervalToTimeInterval
END INTERFACE

INTERFACE
  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
  END SUBROUTINE M3_f90_TimeInterval_InsertInterval
END INTERFACE

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

INTERFACE
  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
  END FUNCTION M3_f90_DataSet_GetGCPointingGroupNode
END INTERFACE

INTERFACE
  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
  END SUBROUTINE M3_f90_GCPointingGroup_GetStoreSize
END INTERFACE

INTERFACE
  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
  END SUBROUTINE M3_f90_GCPointingGroup_InitializeStore
END INTERFACE

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

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_AppendRequest
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_AppendRequestList
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_Initialize
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_Destroy
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_SetCacheAll
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_SetCacheNone
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_SetCacheGCPdata
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_SetCacheScanMapData
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_GetStoreSizeAllUB
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_GetStoreSizeGCP
END INTERFACE

INTERFACE
  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
  END FUNCTION M3_f90_TODcache_GetStoreSizeScanMapUB
END INTERFACE

END MODULE M3_f

---