bibio/Writefield/writefield.f

module WriteField_m

  use writefield_gen_m, only: writefield_gen

  implicit none

  interface WriteField
     module procedure WriteField3d,WriteField2d,WriteField1d
  end interface WriteField

  private
  public WriteField

contains

  subroutine WriteField1d(name,Field)
    character(len=*) :: name
    real, dimension(:) :: Field
    integer, dimension(1) :: Dim

    Dim=shape(Field)
    call WriteField_gen(name,Field,Dim(1),1,1)

  end subroutine WriteField1d

  !****************************************************************

  subroutine WriteField2d(name,Field)
    character(len=*) :: name
    real, dimension(:,:) :: Field
    integer, dimension(2) :: Dim

    Dim=shape(Field)
    call WriteField_gen(name,Field,Dim(1),Dim(2),1)

  end subroutine WriteField2d

  !****************************************************************

  subroutine WriteField3d(name,Field)
    character(len=*) :: name
    real, dimension(:,:,:) :: Field
    integer, dimension(3) :: Dim

    Dim=shape(Field)
    call WriteField_gen(name,Field,Dim(1),Dim(2),Dim(3))

  end subroutine WriteField3d

end module WriteField_m
1	guez	108	module WriteField_m
2
3			use writefield_gen_m, only: writefield_gen
4
5			implicit none
6
7			interface WriteField
8			module procedure WriteField3d,WriteField2d,WriteField1d
9			end interface WriteField
10
11			private
12			public WriteField
13
14			contains
15
16			subroutine WriteField1d(name,Field)
17			character(len=*) :: name
18			real, dimension(:) :: Field
19			integer, dimension(1) :: Dim
20
21			Dim=shape(Field)
22			call WriteField_gen(name,Field,Dim(1),1,1)
23
24			end subroutine WriteField1d
25
26			!****************************************************************
27
28			subroutine WriteField2d(name,Field)
29			character(len=*) :: name
30			real, dimension(:,:) :: Field
31			integer, dimension(2) :: Dim
32
33			Dim=shape(Field)
34			call WriteField_gen(name,Field,Dim(1),Dim(2),1)
35
36			end subroutine WriteField2d
37
38			!****************************************************************
39
40			subroutine WriteField3d(name,Field)
41			character(len=*) :: name
42			real, dimension(:,:,:) :: Field
43			integer, dimension(3) :: Dim
44
45			Dim=shape(Field)
46			call WriteField_gen(name,Field,Dim(1),Dim(2),Dim(3))
47
48			end subroutine WriteField3d
49
50			end module WriteField_m