Happy New Year Fortran style

Happy New Year in True Geek and Fortran Style.

Program ny
character*60 txt
write(*,*)transfer((/1.3563156E-19,1.3568201E-19,2.0293145E-10,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.1538257E+19,1.3563176E-19,1.4854551E-19,1.1538257E+19,1.2636871E+19 &
,1.1538274E+19,1.2636871E+19,1.3563176E-19,1.2636854E+19,1.4854570E-19 &
,1.1538257E+19,1.3563176E-19,1.4854551E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/2.0293145E-10,2.0298561E-10,1.3568201E-19,1.3568201E-19,2.0293145E-10 &
,2.0293145E-10,1.3563156E-19,1.3568201E-19,1.3568201E-19,2.0293145E-10 &
,2.0293145E-10,1.3563156E-19,1.3568201E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.4854551E-19,1.1538257E+19,1.1538274E+19,1.3563176E-19,1.4854551E-19 &
,1.4854551E-19,1.1538257E+19,1.1538274E+19,1.3563176E-19,1.4854551E-19 &
,1.4854551E-19,1.1538257E+19,1.3563176E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3568201E-19,2.0293145E-10,1.3563156E-19,2.0298561E-10,1.3568201E-19 &
,2.0298561E-10,1.3568201E-19,2.0293145E-10,2.0298561E-10,1.3563156E-19 &
,2.0293145E-10,2.0298561E-10,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.1538257E+19 &
,1.3563176E-19,1.3563156E-19,1.4854551E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.4854551E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,2.0293145E-10 &
,1.3563156E-19,1.3563156E-19,1.3568201E-19,1.3563156E-19,1.3563156E-19 &
,2.0298561E-10,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3568201E-19,1.3563156E-19,1.3568201E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.1538257E+19,1.4854570E-19,1.1538257E+19,1.3563176E-19,1.2636854E+19 &
,1.3563176E-19,1.4854551E-19,1.3563156E-19,1.4854551E-19,1.3563156E-19 &
,1.4854551E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/2.0293145E-10,2.0293145E-10,2.0293145E-10,2.0293145E-10,2.0298561E-10 &
,1.3568201E-19,1.3568201E-19,1.3563156E-19,1.3568201E-19,1.3563156E-19 &
,1.3568201E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.4854551E-19,1.1538257E+19,1.4854570E-19,1.4854551E-19,1.3563156E-19 &
,1.3563156E-19,1.4854551E-19,1.4854551E-19,1.4854551E-19,1.4854551E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3568201E-19,1.3563156E-19,1.3568201E-19,2.0293145E-10,2.0298561E-10 &
,1.3563156E-19,2.0293145E-10,1.3563156E-19,2.0293145E-10,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3568201E-19,1.3563156E-19,1.3568201E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.4854551E-19,1.4854551E-19,1.1538257E+19,1.4854570E-19,1.3563156E-19 &
,1.2636854E+19,1.4854570E-19,1.4854551E-19,1.2636854E+19,1.3563176E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/2.0293145E-10,1.3563156E-19,2.0298561E-10,2.0298561E-10,2.0293145E-10 &
,1.3563156E-19,1.3568201E-19,2.0298561E-10,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.4854551E-19,1.1538257E+19,1.3563176E-19,1.3563156E-19,1.4854551E-19 &
,1.1538257E+19,1.1538274E+19,1.3563176E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3568201E-19,1.3563156E-19,2.0298561E-10,1.3568201E-19,2.0293145E-10 &
,2.0298561E-10,2.0293145E-10,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3584001E-19,3.3331402E+36,1.8167625E+19,1.2569300E+19,4.6341351E+36 &
,1.2564797E+19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.8184514E+19,3.9147066E+36,1.8193452E+19,2.1386311E-19,4.6348133E+36 &
,2.1376825E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))

write(*,*)transfer((/1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19 &
,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19,1.3563156E-19/),(/txt/))
write(*,*)
write(*,*) ‘Press a key and Enter to Exit’
read *, txt
end

 

Copy the above program in a text editor.
Save the file with f90 extension. say ny.f90
Compile with f90 filename
 
And run the program.
 
Enjoy.
 
Remove the last 3 statements and you can use the program without having my name.
 
That was fun side. Real magic happens in the transfer function. Not many know about it.
 
Well Happy New Year and hope you try this?

Advertisements

One thought on “Happy New Year Fortran style

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s