Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mrao.cam.ac.uk/~rachael/compphys/examples/complex.f90 Дата изменения: Tue Sep 13 13:07:28 2005 Дата индексирования: Tue Oct 2 11:12:13 2012 Кодировка: Поисковые слова: п п п п п п п п п п п

integer dp
parameter(dp=kind(1.0d0))
complex c
complex (dp) :: dc

c=-2 ; dc=-2
c=sqrt(c) ; dc=sqrt(dc)

write(*,*)c
write(*,*)dc
write(*,*)dc-c
end