file - How to fill a matrix with data in Fortran 90 -

-

i have issue, maybe stupid, code wrote. generated 30 datasets of 24 lines containing different values represent, however, same measure, can not print them in array format. let me explain, single column values, able write them matrix of 24 rows 30 columns. tried read various threads on site , on others, got matrices of zeros alternating values, how can do? following code wrote trying matrix "a" formed values of "diffu"

program deviation  implicit none   character(len=20) :: filein,fileout,fileinp  integer :: row,i,h,io,n,j,l,m,col  real :: usv,usf,tsv,tsf,su,st  real :: diffu, difft  real, dimension(24,30) ::  real, dimension(720) :: u  n = 39  row = 24  col = n-9  write(*,'(2x,''input file .......''/)')  read(*,'(a15)') filein  write(*,'(2x,''output file........''/)')  read(*,'(a15)') fileout   open(unit = 20,file=fileout)   = 0.    fileloop : = 10,n   fileinp = 'lin*27-'   write(fileinp, '("lin*27-",i2,".dat")')   open(unit = i+40,file=fileinp)   open(unit = 30,file=filein)    j = 1, row   read(30,*,iostat = io) h,usv,tsv   read(i+40,*,iostat = io) h,usf,tsf    if(io/=0)     write(*,*) 'end of file!'    exit    else if(io==0)     diffu = ((usf - usv)**2)     difft = ((tsf - tsv)**2)     write(20,*) diffu,difft      endif    enddo   enddo  close(i+40)  close(30)   enddo fileloop  close(20)   open(unit=20,status='old',file=fileout)   r = 1, 720   read(20,*,iostat = io) diffu,difft   u(r) = diffu   if(io/=0)   write(*,*) "error!"   exit   else if(io==0)    m = 1, 24     l = 1, col      a(m,l) = a(m,l) + u(r)      enddo    enddo  endif  enddo    write(*,*)  close(20)   end program deviation


Comments

Post a Comment

Popular posts from this blog

javascript - IndexedDB error: Uncaught DataCloneError: Failed to execute 'put' on 'IDBObjectStore': An object could not be cloned -

-
i using google maps api along html 5 geolocation api display position marker on map. once marker displayed have simple on marker double click function saves new marker current position using indexeddb. goes until object stored, recieve message " uncaught datacloneerror: failed execute 'put' on 'idbobjectstore': object not cloned. " in console. code follows: function initialize() { var mapproperties = { // set maps properties center:new google.maps.latlng(55.8580,-4.2590), zoom:8, maptypeid:google.maps.maptypeid.roadmap }; var map=new google.maps.map(document.getelementbyid("map-overview"),mapproperties); //display map in map-overview div function nogeolocation(e) { //a function handle users not have geolocation if (e) { var content = 'error: unfortunately geolocation service failed.'; } else { ...
Read more

amazon web services - When using Cognito credentials with AWS in a browser (javascript), keep getting "missing credentials" error -

-
Image
i'm attempting upload file s3 bucket of mine web browser using aws' javascript sdk. code looks this: aws.config.credentials = new aws.cognitoidentitycredentials({ accountid: 'dfhgdh', identitypoolid: 'fdagsd', rolearn: 'fdafds' }); var bucket = new aws.s3({params: {bucket: 'test-bucket'}}); var pdfupload = document.getelementbyid('pdf-uploads').files[0]; var params = {key: pdfupload.name, contenttype: pdfupload.type, body: pdfupload}; bucket.putobject(params, function (error, data) { if (error) { console.log(error); } else { console.log(data); } }); however, whenever reaches putobject command, keep getting error aws: "error: missing credentials in config {message: "missing credentials in config", code: "credentialserror"..." i'm sure i'm missing simple , stupid here, can't figure out life of me. (i different error when try hardcode bogus secret...
Read more

c# - How to set the datatextfield value instead of the value on a drop down list? -

-
i have list of countries, returns id , name. have string. drop down sets value id, @ point don't have id's. want able set selectedvalue text field. there way this? or there way compare string against list work out id? string country = "australia"; ddlcountry.datasource = listofcountries; ddlcountry.datatextfield = "value"; ddlcountry.datavaluefield = "key"; ddlcountry.databind(); ddlcounty.selectedvalue = ??? thanks ddlcountry.items.findbytext(country).selected = true
Read more