1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
|
module BIBIndQualStructures
!*****************************************************************************
! *
! Definition des types derives *
! *
!*****************************************************************************
type IndQual
double precision :: Smin
double precision :: Smax
double precision :: val
integer :: color
end type IndQual
type Bruit
double precision :: bm
double precision :: di
end type Bruit
type Quality
type(IndQual) :: iq
double precision :: ETR, TED, TEG, EM
end type Quality
contains
!*****************************************************************************
! *
! Definition des "constructeurs" *
! *
!*****************************************************************************
! creation d'une structure IndQual
subroutine createIndQual(Smin,Smax,val,color,iq)
implicit none
double precision, intent(in) :: Smin, Smax, val
integer, intent(in) :: color
type(IndQual), intent(out) :: iq
iq%Smin = Smin
iq%Smax = Smax
iq%val = val
iq%color = color
end subroutine createIndQual
! creation d'une structure Bruit
subroutine createBruit(bm,di,b)
implicit none
double precision, intent(in) :: bm, di
type(Bruit), intent(out) :: b
b%bm = bm
b%di = di
end subroutine createBruit
! creation d'une structure Quality
subroutine createQuality(ETR,TED,TEG,EM,iq,qual)
implicit none
double precision, intent(in) :: ETR, TED, TEG, EM
type(IndQual), intent(in) :: iq
type(Quality), intent(out) :: qual
qual%iq%Smin = iq%Smin
qual%iq%Smax = iq%Smax
qual%iq%val = iq%val
qual%iq%color = iq%color
qual%ETR = ETR
qual%TED = TED
qual%TEG = TEG
qual%EM = EM
end subroutine createQuality
end module BIBIndQualStructures |
Partager