VARIABLE

 !name of the program: VARIABLE

integer :: total

real :: average

complex :: cx

logical :: done

character(len=80) :: message

total = 10000

average = 5000

done = .true.

cx = (0.5, -4.0)

message = 'Hello'

write (*,*), total, average, done, cx, message

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA