fortran90 - Reading a text file as a input and then writing text files with the data in 2D matrices as output -



fortran90 - Reading a text file as a input and then writing text files with the data in 2D matrices as output -

i real novice in fortran90, of course of study in other programming language. however, need create programme work. asking comment anybody. in advance.

from on, explain problem. original info next as;

15 1r 2 1r 70 22r 2 2r 15 1r 2 1r 8 8r 15 1 3r

this written 1 time again in way below;

15 15 2 2 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 2 2 2 15 15 2 2 8 8 8 8 8 8 8 8 8 15 1 1 1 1

so total number of info elements in above illustration can counted 48. total number of original info 12,113,640. , original info made of 220(z) slices of 322(x) x 171(y). each slices has 55,062 of elements.

if possible, way of count of element number, programme count 55,062 elements , create output file(txt) , totally 220 slices of info should 2d array.

so have extract 220 slices 1 whole info file. , info should 2d array in each slice.

it - assume know how read lines file

program main character(len=120):: compressed character ch integer value, rval, repeat, ix, complen ! pretend line read file compressed = '15 1r 2 1r 70 22r 2 2r 15 1r 2 1r 8 8r 15 1 3r' complen = len(trim(compressed)) ix = 1 while (ix .lt. complen) ! skip spaces ch = compressed(ix:ix) if (ch .ne. ' ') exit ix = ix + 1 end ! extract number value = 0 ch = compressed(ix:ix) if (ch .ge. '0' .and. ch .le. '9') value = value * 10 + ichar(ch) - ichar('0') else exit end if ix = ix + 1 if (ix .gt. complen) exit end ! repeater repeat = 1 if (ch .eq. 'r') ! cut down 1 since 1 has been printed repeat = value - 1 ix = ix + 1 else rval = value end if ! assume there won't more 100 repeats write(*, '(100i3)', advance='no') (rval, ii = 1, repeat) end stop end programme

fortran90 fortran77

Comments

Post a Comment

Popular posts from this blog

web services - java.lang.NoClassDefFoundError: Could not initialize class net.sf.cglib.proxy.Enhancer -

web services - java.lang.NoClassDefFoundError: Could not initialize class net.sf.cglib.proxy.Enhancer - when trying request rest service @ time of response getting exception.. feb 21, 2013 2:34:49 pm com.sun.jersey.spi.container.containerresponse mapmappablecontainerexception severe: exception contained within mappablecontainerexception not mapped response, re-throwing http container java.lang.noclassdeffounderror: not initialize class net.sf.cglib.proxy.enhancer @ org.hibernate.proxy.pojo.cglib.cgliblazyinitializer.getproxyfactory(cgliblazyinitializer.java:117) @ org.hibernate.proxy.pojo.cglib.cglibproxyfactory.postinstantiate(cglibproxyfactory.java:43) @ org.hibernate.tuple.entity.pojoentitytuplizer.buildproxyfactory(pojoentitytuplizer.java:162) @ org.hibernate.tuple.entity.abstractentitytuplizer.<init>(abstractentitytuplizer.java:135) @ org.hibernate.tuple.entity.pojoentitytuplizer.<init>(pojoentitytuplizer.java:55) @ org.hibernate.tuple.e...
Read more

Accessing MATLAB's unicode strings from C -

Accessing MATLAB's unicode strings from C - how can access underlying unicode info of matlab strings through matlab engine or mex c interfaces? here's example. let's set unicode characters in utf-8 encoded file test.txt, read as fid=fopen('test.txt','r','l','utf-8'); s=fscanf(fid, '%s') in matlab. now if first feature('defaultcharacterset', 'utf-8') , c engevalstring(ep, "s") , output text file utf-8. proves matlab stores unicode internally. if mxarraytostring(enggetvariable(ep, "s")) , unicode2native(s, 'latin-1') give me in matlab: non-latin-1 characters replaced character code 26. need getting access underlying unicode info c string in unicode format (utf-8, utf-16, etc.), , preserving non-latin-1 characters. is possible? my platform os x, matlab r2012b. addendum: documentation explicitly states "[mxarraytostring()] supports multibyte encoded characters...
Read more

javascript - mongodb won't find my schema method in nested container -

javascript - mongodb won't find my schema method in nested container - i trying access method of schema stored within mixed container. here situation : have cases model can many different things, have schema each of these things stored in "casecontent" mixed property. var caseschema = mongoose.schema({ casecontent : {}, object : {type:string, default : "null"}, collision : {type : boolean, default : false} }); the casecontent property filled model of 1 of schemas, 1 exemple : var treeschema = new mongoose.schema({ applecount : {type : number, default : 3} }); treeschema.methods.dostuff = function (data) { console.log('hey, listen'); homecoming true; }; then, want utilize method of schema original container : caseschema.methods.dostuff = function (data) { if (this.casecontent.dostuff !== undefined) { this.casecontent.dostuff(); console.log('it worked'); } else { ...
Read more