42 character(len=*),
intent(out) :: str
43 integer ,
intent(in) :: ii
52 else if ( ii < 100)
then 55 else if ( ii < 1000)
then 58 else if ( ii < 10000)
then 62 call quit(
"basic_tools: intToString: n >= 10000")
74 else if ( ii > -100)
then 78 call quit(
"basic_tools: intToString: n < -100")
93 function clock()
result(time)
94 double precision :: time
105 subroutine quit(message)
106 character(len=*),
intent(in) :: message
109 write(*,*)
"basic_tools : quit" 110 write(*,*)
"ERROR = ", trim(message)
124 subroutine warning(message, verb)
125 character(len=*),
intent(in) :: message
126 integer ,
intent(in) :: verb
129 write(*,*)
"basic_tools : " 130 write(*,*)
"WARNING: ", trim(message)
135 write(*,*)
"basic_tools : " 136 write(*,*)
"WARNING: ", trim(message)
145 integer,
dimension(:),
allocatable :: p
146 integer,
intent(in) :: n
149 character(len=100) :: errmsg
152 allocate(p(n), stat=stat, errmsg=errmsg)
154 errmsg=
"alloc_LI: alloc_IA1D: "// trim(errmsg)
162 logical,
dimension(:),
allocatable :: p
163 integer,
intent(in) :: n
166 character(len=100) :: errmsg
169 allocate(p(n), stat=stat, errmsg=errmsg)
171 errmsg=
"alloc_LI: alloc_LA1D: "// trim(errmsg)
179 integer,
dimension(:,:),
allocatable :: p
180 integer,
intent(in) :: n1, n2
183 character(len=100) :: errmsg
186 allocate(p(n1,n2), stat=stat, errmsg=errmsg)
188 errmsg=
"alloc_LI: alloc_IA2D: "// trim(errmsg)
197 integer,
dimension(:),
allocatable :: p
200 character(len=100) :: errmsg
202 if (
allocated(p))
then 203 deallocate(p, stat=stat, errmsg=errmsg)
204 if (stat > 0)
call quit(
"alloc_LI: free_IA1D: "//trim(errmsg) )
211 integer,
dimension(:,:),
allocatable :: p
214 character(len=100) :: errmsg
216 if (
allocated(p))
then 217 deallocate(p, stat=stat, errmsg=errmsg)
218 if (stat > 0)
call quit(
"alloc_LI: free_IA2D: "//trim(errmsg) )
227 logical,
dimension(:),
allocatable :: p
230 character(len=100) :: errmsg
232 if (
allocated(p))
then 233 deallocate(p, stat=stat, errmsg=errmsg)
234 if (stat > 0)
call quit(
"alloc_LI: free_LA1D: "//trim(errmsg) )