@ArKM
thanks man . such simple , i make a stupid mistake .
@ArKM gummibar
problem solved . thank you guy so much . appreciate both of your time and patients
@gummibaer
at first, i just declare syndata and obsdata with fixed dimension , but i find memory get less and less (top command),then i change it to allocatable and thought this may release memory . the problem is that ,i still have this memory problem .
@gummibaer
Actually, i check memory use in terminal . after i run this code , memory get less and less . the number of obspath-file is not constant , so i just give a big one to make i can read all file contained .the data i read into syndata and obsdata is more than 3500, but i only need first...
hi guys
sorry for post problem .i reattach my code . and problem is when i run my code , the memory get less and less ,and finally run out . i use one variable in loop ,overwrite different data file to this variable,then write txt to disk . it should not take that much memory .thanks a lot for...
HI guys
when i run my fortran code . the memory get less and less and finely run out . i'm not family with memory work .here is my code :
program rfcor
character*32,dimension(20,160)::synfile
character*32 syn,synname,obspath,filepath
character*64 outpath...
Hi guy
i use a loop to read different file data and find each file data's peak. but i found the output are same .
here is my code :
program rfcc
character*32,dimension(20,160)::synfile
character*32 syn,syn1,syn2
real,allocatable,dimension(:)::syndata
real...
@xwb
acturally , that's what i do . i put the common block in a file . that use 'include ' in the declaration . it still have this problem . i will try use pointer represent ,try use free () to release the memorary .
sorry for that
the subroutine is kind of big .so i just give part of them ,i check the main program . it's correct . it should be something wrong with subroutine calrespknt .
the subroutine like :
subroutine calrespknt (modela,ipors,dt,t,pr,complt,modcnv)
.......
common /coff/...
HI prgramer
when i run a loop to call subroutine . it stop execution and came out :bus error 10 .
do 96 i=1,row
do 97 j=1,conlum
if(i.eq.datarow(i).AND.(j.eq.dataconlum(j))) then
depth=mindepth+stepdeph*(i-1)
prossio=minpro+steppro*(j-1)...
HI programer
like i have two real variable: month ,date . now i want to got a file name like: month_date
if month=5 date=23, i want to get a string 5_23 .
i try some . only get it in this way 5_ 23!!!! there a space between 5_ and 23 !!!
do you guys have any experience on this ?
hi guy
do you know how to call main program in fortran ? i mean , in main program , i call anther main program, not the function or subroutine .
by the way , how to call interactive program .
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.