Wave that shook the world

Did anyone notice that that code shown in this episode of
Nova contained snippets like

if(dabs( ...

Just goes to show that any reasonable computer model is
going to be written in Fortran, and that the programmer
will learn from an oral tradition rather than an actual
programming class (else why would he use the specific
form of the intrinsic here.) Also it had to be relatively
new code (post-f66) because of the lower case characters.

--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end


.