Fortran90 Help

From: Padiyath Sreekumaran (Kumar.Padiyath_at_psi.ch)
Date: 06/28/05

  • Next message: Jonathan Williams: "Sleeping Processes" 
    Date: Tue, 28 Jun 2005 15:37:59 +0200
To: tru64-unix-managers@ornl.gov

       Hello,
       Iam using Fortran90 to compile a program which I have
       received. I get a lot of compilation errors when I compile
       with f90 -c prog.f90 the enclosed subroutine.
       Can any one help please?. Iam enclosing the subroutine.

       Thanks in advance,
         Kumar

    Prog.f90 file contents:
    =======================

    MODULE daten
      

      USE types

      TYPE geometrietyp
         INTEGER :: zonenanzahl
         INTEGER :: XYZzonenanzahl(3)
         REAL(dp) , ALLOCATABLE :: Xzonengrenze(:)
         REAL(dp) , ALLOCATABLE :: Yzonengrenze(:)
         REAL(dp) , ALLOCATABLE :: Zzonengrenze(:)
         TYPE(zonentyp),POINTER :: Zone(:)
      END TYPE geometrietyp

      TYPE zonentyp
         INTEGER :: blockanzahl
         INTEGER :: XYZblockanzahl(3)
         REAL(dp) , ALLOCATABLE :: Xblockgrenze(:)
         REAL(dp) , ALLOCATABLE :: Yblockgrenze(:)
         REAL(dp) , ALLOCATABLE :: Zblockgrenze(:)
         TYPE(bloecketyp),POINTER :: BLOCK(:)
      END TYPE zonentyp

      TYPE bloecketyp
         INTEGER :: sektoranzahl
         INTEGER :: sektorflaechenanzahl
         INTEGER , ALLOCATABLE :: Sektorflaechen(:)
         TYPE(sektorentyp),POINTER :: Sektor(:)
      END TYPE bloecketyp

      TYPE sektorentyp
         INTEGER :: mediennummer
         INTEGER :: grenzflaechenanzahl
         INTEGER , ALLOCATABLE :: Grenzflaechen(:)
         INTEGER :: positive
         INTEGER :: negative
      END TYPE sektorentyp

      !--------------------------------------

      TYPE quadrat_oberflaechentyp
         REAL(dp) :: koeff(10)
      END TYPE quadrat_oberflaechentyp

      !--------------------------------------

      TYPE punkttyp
         INTEGER :: zonenanz
         INTEGER , ALLOCATABLE :: Zonennummer(:)
         TYPE(punktzonentyp),POINTER :: Zn(:)
      END TYPE punkttyp

      TYPE punktzonentyp
         INTEGER :: blockanz
         INTEGER , ALLOCATABLE :: Blocknummer(:)
         TYPE(punktblocktyp),POINTER :: Bl(:)
      END TYPE punktzonentyp

      TYPE punktblocktyp
         INTEGER :: sektoranz
         INTEGER , ALLOCATABLE :: Sektornummer(:)
         INTEGER , ALLOCATABLE :: Mednummer(:)
         INTEGER :: flaechanz_block
         INTEGER , ALLOCATABLE :: Flaech_block(:)
         INTEGER :: flaechanz_sektor
         INTEGER , ALLOCATABLE :: Flaech_sektor(:)
      END TYPE punktblocktyp
      

      TYPE (geometrietyp) :: geom
      TYPE (quadrat_oberflaechentyp), ALLOCATABLE :: Flaechen(:)
      TYPE (punkttyp) :: punkt1
      TYPE (punkttyp) :: punkt2
      TYPE (punktblocktyp) :: punktb

      !REAL(dp),PARAMETER :: epsi_dp = 0.0000000001_dp
      REAL(dp),PARAMETER :: epsi = 0.00001_dp ! für Zeit t
      !REAL(dp),PARAMETER :: epsi_koeff = 0.05_dp ! für Fläche
      REAL(dp),PARAMETER :: epsi_koeff = 0.000001_dp ! für Fläche
      INTEGER,PARAMETER :: intvoid1 = 6666
      INTEGER,PARAMETER :: intvoid2 = 1000
      INTEGER,PARAMETER :: extvoid = 0

    END MODULE daten
    ------------------------------------------------------------------
    Padiyath Sreekumar | Tel: +41.56.310.3643
    Paul Scherrer Institut | email: kumar.padiyath@psi.ch
    AIT | Office: WHGA/U132
    WHGA/U132 | Fax: +41.56.310.3649
    CH-5232 Villigen PSI |
    Switzerland |
    -----------------------------------------------------------------

  • Next message: Jonathan Williams: "Sleeping Processes"

    Relevant Pages