2024-07-25 10:27:17 +02:00

7 lines
102 B
Fortran
Executable File

integer function xalloc(i)
integer i
xalloc=malloc(i)
return
end