Group: comp.lang.fortran · Group Profile · Search for F20 in comp.lang.fortran
Author: Arjen Markus
Date: Jul 6, 2008 04:14
... esp(nx,ny,:)=esp_col end do close(10) open(unit=10,file=trim(fname)//'.formatted',status='unknown') do i=1,ngx do j=1,ngy do k=1,ngz write(10,'(3i6,f20.8)')i,j,k,real(esp(i,j,k),dp) end do end do end do close(10) write(*,*)'Written potential to ',trim(fname)//'.formatted' deallocate(esp) deallocate(...
|
| Show full article (4.14Kb) · Show article thread |
Group: comp.lang.fortran · Group Profile · Search for F20 in comp.lang.fortran
Author: Hongyi
Date: Jul 6, 2008 03:49
... esp(nx,ny,:)=esp_col end do close(10) open(unit=10,file=trim(fname)//'.formatted',status='unknown') do i=1,ngx do j=1,ngy do k=1,ngz write(10,'(3i6,f20.8)')i,j,k,real(esp(i,j,k),dp) end do end do end do close(10) write(*,*)'Written potential to ',trim(fname)//'.formatted' deallocate(esp) deallocate(esp_col) stop end ...
|
| Show full article (3.01Kb) |
Group: alt.personals.phone · Group Profile · Search for F20 in alt.personals.phone
Author: AnyThingGoes Phone
Date: May 8, 2008 06:25
... Phone Sex., direct dial, call direct, hot phone sex, kinky phone sex, unlimited, unrestricted, credit card, visa, mastercard, mc, toll free, toll-free .;:OvZBi?xke$+Ct8VZ*'4^K)EQO(l0sGXBp+Kj&&f20-3TebBP+*@0ltTDv^@-=d4qSn1&5qX!t[n^%%ZRiDQKt:w5]0EbrY.AQ_Na9"Bl[)3YkY7kTZgXrRYm:btl0TTG?>y^5=c2wC5t\XN<BPLS3;c8 c1uNL#Cr\dMBW_)Z"qN_!4$hx)sUOhRfO#x#6yihJ*/= rvQdS<u&rdd`L"0g@3#2#dAH8mfJ7puv)^...
|
| Show full article (8.11Kb) |
Group: comp.lang.fortran · Group Profile · Search for F20 in comp.lang.fortran
Author: Gordon Sande
Date: Apr 22, 2008 07:20
..., so the '/' key should be on the left of your right shift key ;-) Hum, more seriously, you need to change your read's into: read(5,'(a)') buff read(buff,'(f20.0)',err=900) x (Oh, and doing that fixes the issue with g95, apparently.) -- FX Yes, making that change does alter the behaviour - the g95 version ...
|
| Show full article (2.26Kb) · Show article thread |
Group: comp.lang.fortran · Group Profile · Search for F20 in comp.lang.fortran
Author: SimonG
Date: Apr 22, 2008 06:18
...address, so the '/' key should be on the left of your right shift key ;-) Hum, more seriously, you need to change your read's into: read(5,'(a)') buff read(buff,'(f20.0)',err=900) x (Oh, and doing that fixes the issue with g95, apparently.) -- FX Yes, making that change does alter the behaviour - the g95 version works as ...
|
| Show full article (4.26Kb) · Show article thread |
|
