LCPQ
/
EZFIO
mirror of https://gitlab.com/scemama/EZFIO.git
10
0
Fork 0
Code Releases Activity

more robust functions 

Version:2.0.5
This commit is contained in:
Anthony Scemama 2020-12-03 18:38:48 +01:00
parent 400dd83599
commit 7560a01faa
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/groups_templates.py
View File

@ -58,23 +58,23 @@ BEGIN_PROVIDER [ %(type)s, %(group)s_%(var)s ]
END_PROVIDER END_PROVIDER
subroutine ezfio_set_%(group)s_%(var)s(%(var)s) subroutine ezfio_set_%(group)s_%(var)s(v)
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Sets the %(group)s/%(var)s attribute ! Sets the %(group)s/%(var)s attribute
END_DOC END_DOC
%(type_set)s :: %(var)s %(type_set)s :: v
call ezfio_write_%(type_short)s(path_%(group)s,'%(var)s',%(var)s) call ezfio_write_%(type_short)s(path_%(group)s,'%(var)s',v)
FREE %(group)s_%(var)s FREE %(group)s_%(var)s
end subroutine end subroutine
subroutine ezfio_get_%(group)s_%(var)s(%(var)s) subroutine ezfio_get_%(group)s_%(var)s(v)
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Gets the %(group)s/%(var)s attribute ! Gets the %(group)s/%(var)s attribute
END_DOC END_DOC
%(type)s :: %(var)s %(type)s :: v
%(var)s = %(group)s_%(var)s v = %(group)s_%(var)s
end subroutine end subroutine
subroutine ezfio_has_%(group)s_%(var)s(result) subroutine ezfio_has_%(group)s_%(var)s(result)
@ -111,30 +111,30 @@ BEGIN_PROVIDER [ %(type)s, %(group)s_%(var)s, %(dims)s ]
END_PROVIDER END_PROVIDER
subroutine ezfio_set_%(group)s_%(var)s(%(var)s) subroutine ezfio_set_%(group)s_%(var)s(v)
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Sets the %(group)s/%(var)s attribute ! Sets the %(group)s/%(var)s attribute
END_DOC END_DOC
%(type_set)s :: %(var)s (*) %(type_set)s :: v (*)
integer :: rank, dim_max, i integer :: rank, dim_max, i
integer :: dims(10) integer :: dims(10)
rank = %(rank)s rank = %(rank)s
character*(1024) :: message character*(1024) :: message
%(dims_loop)s %(dims_loop)s
call ezfio_write_array_%(type_short)s(path_%(group)s,'%(var)s', & call ezfio_write_array_%(type_short)s(path_%(group)s,'%(var)s', &
rank,dims,%(dim_max)s,%(var)s) rank,dims,%(dim_max)s,v)
FREE %(group)s_%(var)s FREE %(group)s_%(var)s
end subroutine end subroutine
subroutine ezfio_get_%(group)s_%(var)s(%(var)s) subroutine ezfio_get_%(group)s_%(var)s(v)
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Gets the %(group)s/%(var)s attribute ! Gets the %(group)s/%(var)s attribute
END_DOC END_DOC
%(type)s, intent(out) :: %(var)s (*) %(type)s, intent(out) :: v (*)
character*(1024) :: message character*(1024) :: message
%(var)s(1: %(dim_max)s ) = reshape ( %(group)s_%(var)s, (/ %(dim_max)s /) ) v(1: %(dim_max)s ) = reshape ( %(group)s_%(var)s, (/ %(dim_max)s /) )
end subroutine end subroutine
subroutine ezfio_has_%(group)s_%(var)s(result) subroutine ezfio_has_%(group)s_%(var)s(result)
@ -163,13 +163,13 @@ BEGIN_PROVIDER [ %(type)s, %(group)s_%(var)s ]
%(group)s_%(var)s = %(expr)s %(group)s_%(var)s = %(expr)s
END_PROVIDER END_PROVIDER
subroutine ezfio_get_%(group)s_%(var)s(%(var)s) subroutine ezfio_get_%(group)s_%(var)s(v)
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Gets the %(group)s/%(var)s attribute ! Gets the %(group)s/%(var)s attribute
END_DOC END_DOC
%(type)s, intent(out) :: %(var)s %(type)s, intent(out) :: v
%(var)s = %(group)s_%(var)s v = %(group)s_%(var)s
end end
subroutine ezfio_free_%(group)s_%(var)s() subroutine ezfio_free_%(group)s_%(var)s()

2
version
View File

@ -1 +1 @@
VERSION=2.0.3 VERSION=2.0.5