Fortran read statement

[Travis260]

How can I write a read statment that if the user hits enter without entering a new value it will use a defalt value. Here is basically what I think it should be but it does not work. I know it can be done because my Prof. is requiring it on a project.

default = 5.

WRITE(*,*)"enter angle of attack"
READ(*,*) attack
IF(attack ==" ")THEN
AOA == defalt
ELSE
AOA = attack
END IF

Thanks in advance
Travis

 

[xwb]

Change AOA = attack to

read (attack,*) AOA

 

[gullipe]

Try this:

Program test

character*20 attack

default = 5.

write(*,*) 'Enter angle of attack: '
read(*,'(a)') attack
if(attack .eq. ' ') then
aoa = default
else
read(attack,'(f10.2)') aoa
endif

write(*,'(1x,a,f10.2)') 'Result:',aoa

end