Fortran Wiki
happy_new_year

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export | 

Program newyear
character*60 txt
!
!Program to display Happy New Year
!by Sukhbinder Singh (aerogeek)
!
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

category: code

Another example to show use of transfer

Created on January 3, 2011 11:06:05 by aerogeek-sukhbinder (207.192.72.34) (6493 characters / 2.0 pages)
Edit | Views: Print | TeX | Source | Linked from: Code, transfer_ex