program sdasdasd implicit none character(9) - TopicsExpress

program sdasdasd implicit none character(9) fname_in,fname_out real(8),parameter:: pi=3.141592654d0,g=9.80665d0 real(8) de,di,denp,dene,deni real(8) ae,ai,ap,we write(*,*) open data file read(*,*) fname_in open(unit=8,file=adjustr(fname_in)//.dat,status=old) read(8,10)de read(8,10)di read(8,20)denp,dene,deni 10 format(f24.4) 20 format(3f8.1) write(*,10) de write(*,10) di write(*,20) denp,dene,deni write(*,*) recording data file read(*,*) fname_out open(unit=9,file=adjustr(fname_out)//.fem,status=unknown) ae=pi*de**2/4 ai=pi*di**2/4 ap=ae-ai we=(ap*denp+ai*deni-ae*dene)*g write(9,100)ae,ai,ap write(9,200)we 100 format(3f8.4,a) 200 format(f24.4,a) end program

#Shanxi #Jobs Assistant Project Manager 项目经理助理 -

Some positive news about Jamie Michelle, she opened her eyes today

Dont give up. We have been up against stone walls before and had

Petikan .... Dari sahabat>Ana forward daripada Ustaz Afzan,

Vyrážeme do PRAHY! Tešíme sa na stretnutie s Marie Diamond :)

Assalamalikum Warahatallu Wa Barkatahu Allah does not charge a

2009 16.2h Thoroughbred Gelding Freighter is a pleasure to ride.

O CRIME ORGANIZADO NO MEU PONTO DE VISTA... — Crime

On TBT I posted a pic of me with Louie Bellson ... one year later

AFRICAN PROVERBS The man who marries a beautiful woman, and

I love writing. I write songs. I wrote a musical. But nothing is

बचपन की सबसे अनमोल

WE NEED TO BECOME SIMPLE AGAIN. A talk by Charles J. Chaput,

MISION CRISTIANA GRACIA & RESTAURACION PERU REUNION GENERAL: HORA

LIKE grasselhypnotherapy.au/ and well send you a discount

Buy Dell 8MN61 Laptop LCD Screen Replacement 15 6 WXGA HD LED on

BIBLICAL SCRIPTURE SOWED INTO YOUR D.N.A. W.I.T. scientists, in

Melanie Keys Vivian Motakirukika Diddahs Coco LaRush Mykee GreGory

garfish.de Der neuer Angeln Distributionspartner & Agent für