ftete.f [SRC] [CPP] [JOB] [SCAN]
srcresultats/00benedicte/.xvpics [=]
resultats/pt1_complet/.xvpics [=]
archivage/code2000X_testCG [=]
resultats/pt1_complet [=]


   1 |       subroutine ftete
   2 | 
   3 |       write(*,*) '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 
   4 |      & Transitional//EN">'
   5 |       write(*,*) '<HTML>'
   6 |       write(*,*) '<HEAD>'
   7 |       write(*,*) '<TITLE> [RAY] CECILE sorties formatees du code (indepe
   8 |      &ndant du systeme) </TITLE>'
   9 |       write(*,*) '<NOSCRIPT>'
  10 |       write(*,*) '</NOSCRIPT>'
  11 |       write(*,*) '</HEAD>'
  12 | 
  13 |       write(*,*)  '<BODY TEXT="#400040" BGCOLOR="#99FFCC" LINK="#0000FF"
  14 |      & VLINK="#800080" >'
  15 | ccccc   ALINK="#FF0000">'
  16 | 
  17 | 
  18 |       return 
  19 |       end

ftete.f could be called by:
mcecile.f [archivage/code2000X_testCG] - 106
mcecile.f [resultats/pt1_complet] - 102
mcecile.f [src] - 173