LCPQ/EZFIO
10
0
Fork 0
mirror of https://gitlab.com/scemama/EZFIO.git synced 2024-12-22 04:13:34 +01:00
Code Releases Activity

more robust functions

Browse Source 
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
subroutine ezfio_set_%(group)s_%(var)s(%(var)s)
subroutine ezfio_set_%(group)s_%(var)s(v)
implicit none
BEGIN_DOC
! Sets the %(group)s/%(var)s attribute
END_DOC
%(type_set)s :: %(var)s
call ezfio_write_%(type_short)s(path_%(group)s,'%(var)s',%(var)s)
%(type_set)s :: v
call ezfio_write_%(type_short)s(path_%(group)s,'%(var)s',v)
FREE %(group)s_%(var)s
end subroutine
subroutine ezfio_get_%(group)s_%(var)s(%(var)s)
subroutine ezfio_get_%(group)s_%(var)s(v)
implicit none
BEGIN_DOC
! Gets the %(group)s/%(var)s attribute
END_DOC
%(type)s :: %(var)s
%(var)s = %(group)s_%(var)s
%(type)s :: v
v = %(group)s_%(var)s
end subroutine
subroutine ezfio_has_%(group)s_%(var)s(result)
@ -111,30 +111,30 @@ BEGIN_PROVIDER [ %(type)s, %(group)s_%(var)s, %(dims)s ]
END_PROVIDER
subroutine ezfio_set_%(group)s_%(var)s(%(var)s)
subroutine ezfio_set_%(group)s_%(var)s(v)
implicit none
BEGIN_DOC
! Sets the %(group)s/%(var)s attribute
END_DOC
%(type_set)s :: %(var)s (*)
%(type_set)s :: v (*)
integer :: rank, dim_max, i
integer :: dims(10)
rank = %(rank)s
character*(1024) :: message
%(dims_loop)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
end subroutine
subroutine ezfio_get_%(group)s_%(var)s(%(var)s)
subroutine ezfio_get_%(group)s_%(var)s(v)
implicit none
BEGIN_DOC
! Gets the %(group)s/%(var)s attribute
END_DOC
%(type)s, intent(out) :: %(var)s (*)
%(type)s, intent(out) :: v (*)
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
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
END_PROVIDER
subroutine ezfio_get_%(group)s_%(var)s(%(var)s)
subroutine ezfio_get_%(group)s_%(var)s(v)
implicit none
BEGIN_DOC
! Gets the %(group)s/%(var)s attribute
END_DOC
%(type)s, intent(out) :: %(var)s
%(var)s = %(group)s_%(var)s
%(type)s, intent(out) :: v
v = %(group)s_%(var)s
end
subroutine ezfio_free_%(group)s_%(var)s()

2
version
View File

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