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	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