c************************************************************* SUBROUTINE ecrit2 c routine private du module mod_cesam c routine rassemblant des écritures de cesam.f c avec pour fonction la réduction de la longueur de cesam.f c Auteur: P.Morel, Département Lagrange, O.C.A., CESAM2k c-------------------------------------------------------------------- USE mod_donnees, ONLY: langue, nom_fich2 CHARACTER (len=80) :: titre c----------------------------------------------------------------- titre=TRIM(nom_fich2) SELECT CASE(langue) CASE('english') WRITE(*,1516)titre ; WRITE(2,1516)titre 1516 FORMAT('name of the model : ',/,a) CASE DEFAULT WRITE(*,516)titre ; WRITE(2,516)titre 516 FORMAT('nom du modèle : ',/,a) END SELECT titre=TRIM(nom_fich2)//'.don' SELECT CASE(langue) CASE('english') WRITE(*,1503)titre ; WRITE(2,1503)titre 1503 FORMAT('filename of the data NAMELISTs : ',a) CASE DEFAULT WRITE(*,503)titre ; WRITE(2,503)titre 503 FORMAT('nom du fichier des NAMELISTs des données : ',a) END SELECT titre=TRIM(nom_fich2)//'.lis' SELECT CASE(langue) CASE('english') WRITE(*,1504)titre ; WRITE(2,1504)titre 1504 FORMAT('filename of the ASCII listing of the results : ',a) CASE DEFAULT WRITE(*,504)titre ; WRITE(2,504)titre 504 FORMAT('nom du fichier du listing des résultats en ASCII : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.pms' SELECT CASE(langue) CASE('english') WRITE(*,1505)titre ; WRITE(2,1505)titre 1505 FORMAT('filename of the PMS zero age binary model : ',a) CASE DEFAULT WRITE(*,505)titre ; WRITE(2,505)titre 505 FORMAT('nom du fichier du modèle d''âge 0 PMS en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.hom' SELECT CASE(langue) CASE('english') WRITE(*,1506)titre ; WRITE(2,1506)titre 1506 FORMAT('filename of the zero age homogenous binary model : ',a) CASE DEFAULT WRITE(*,506)titre ; WRITE(2,506)titre 506 FORMAT('nom du fichier du modèle d''âge 0 homogène en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.zams' SELECT CASE(langue) CASE('english') WRITE(*,1507)titre ; WRITE(2,1507)titre 1507 FORMAT('filename of the binary ZAMS model : ',a) CASE DEFAULT WRITE(*,507)titre ; WRITE(2,507)titre 507 FORMAT('nom du fichier du modèle de ZAMS en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.post' SELECT CASE(langue) CASE('english') WRITE(*,1508)titre ; WRITE(2,1508)titre 1508 FORMAT('filename of the POST binary model : ',a) CASE DEFAULT WRITE(*,508)titre ; WRITE(2,508)titre 508 FORMAT('nom du fichier du modèle de POST en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.cohe' SELECT CASE(langue) CASE('english') WRITE(*,1509)titre ; WRITE(2,1509)titre 1509 FORMAT('filename of the COHE binary model : ',a) CASE DEFAULT WRITE(*,509)titre ; WRITE(2,509)titre 509 FORMAT('nom du fichier du modèle de COHE en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.coca' SELECT CASE(langue) CASE('english') WRITE(*,1510)titre ; WRITE(2,1510)titre 1510 FORMAT('filename of the COCA binary model : ',a) CASE DEFAULT WRITE(*,510)titre ; WRITE(2,510)titre 510 FORMAT('nom du fichier du modèle de COCA en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.cone' SELECT CASE(langue) CASE('english') WRITE(*,1521)titre ; WRITE(2,1521)titre 1521 FORMAT('filename of the CONE binary model : ',a) CASE DEFAULT WRITE(*,521)titre ; WRITE(2,521)titre 521 FORMAT('nom du fichier du modèle de CONE en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.coox' SELECT CASE(langue) CASE('english') WRITE(*,1520)titre ; WRITE(2,1520)titre 1520 FORMAT('filename of the COOX binary model : ',a) CASE DEFAULT WRITE(*,520)titre ; WRITE(2,520)titre 520 FORMAT('nom du fichier du modèle de COOX en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.cosi' SELECT CASE(langue) CASE('english') WRITE(*,1524)titre ; WRITE(2,1524)titre 1524 FORMAT('filename of the COSI binary model : ',a) CASE DEFAULT WRITE(*,524)titre ; WRITE(2,524)titre 524 FORMAT('nom du fichier du modèle de COSI en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.dat' SELECT CASE(langue) CASE('english') WRITE(*,1511)titre ; WRITE(2,1511)titre 1511 FORMAT('filename of the final binary model : ',a) CASE DEFAULT WRITE(*,511)titre ; WRITE(2,511)titre 511 FORMAT('nom du fichier du modèle final en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.rep' SELECT CASE(langue) CASE('english') WRITE(*,1512)titre ; WRITE(2,1512)titre 1512 FORMAT('filename of the intermediate binary model : ',a) CASE DEFAULT WRITE(*,512)TRIM(titre) ; WRITE(2,512)TRIM(titre) 512 FORMAT('nom du fichier du modèle intermédiaire en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'.HR' SELECT CASE(langue) CASE('english') WRITE(*,1513)titre ; WRITE(2,1513)titre 1513 FORMAT('filename for he plots of the HR and ZC diagrams : ',a) CASE DEFAULT WRITE(*,513)titre ; WRITE(2,513)titre 513 FORMAT('nom du fichier pour dessins du diag. HR et ZC : ',a) END SELECT titre=TRIM(nom_fich2)//'-ad.osc' SELECT CASE(langue) CASE('english') WRITE(*,1517)titre ; WRITE(2,1517)titre 1517 FORMAT('filename for the computation of adiabatic osc. : ',a) CASE DEFAULT WRITE(*,517)titre ; WRITE(2,517)titre 517 FORMAT('nom du fichier pour le calcul des osc. adia. : ',a) END SELECT titre=TRIM(nom_fich2)//'-nad.osc' SELECT CASE(langue) CASE('english') WRITE(*,1518)titre ; WRITE(2,1518)titre 1518 FORMAT('filename for the computation of non ad. osc. : ',a) CASE DEFAULT WRITE(*,518)TRIM(titre) ; WRITE(2,518)TRIM(titre) 518 FORMAT('nom du fichier pour le calcul des osc. non adia. : ',a) END SELECT titre=TRIM(nom_fich2)//'-inv.osc' SELECT CASE(langue) CASE('english') WRITE(*,1519)titre ; WRITE(2,1519)titre 1519 FORMAT('filename for inversion computations : ',a) CASE DEFAULT WRITE(*,519)titre ; WRITE(2,519)titre 519 FORMAT('nom du fichier pour le calcul des inversions : ',a) END SELECT titre=TRIM(nom_fich2)//'_B.atm' SELECT CASE(langue) CASE('english') WRITE(*,1514)TRIM(titre) ; WRITE(2,1514)TRIM(titre) 1514 FORMAT('filename of the binary model atmosphere : ',a) CASE DEFAULT WRITE(*,514)TRIM(titre) ; WRITE(2,514)TRIM(titre) 514 FORMAT('nom du fichier du modèle d''atmosphère en binaire : ',a) END SELECT titre=TRIM(nom_fich2)//'.cephe' SELECT CASE(langue) CASE('english') WRITE(*,1522)TRIM(titre) ; WRITE(2,1522)TRIM(titre) 1522 FORMAT('filename of the ASCII file of Cepheids pulsation zones :',a) CASE DEFAULT WRITE(*,522)TRIM(titre) ; WRITE(2,522)TRIM(titre) 522 FORMAT('nom du fichier ASCII zones de pulsation des Céphéides : ',a) END SELECT titre=TRIM(nom_fich2)//'.mHHe' SELECT CASE(langue) CASE('english') WRITE(*,1523)titre ; WRITE(2,1523)titre 1523 FORMAT('filename of the ASCII file H and He shell sourc : ',a) CASE DEFAULT WRITE(*,523)titre ; WRITE(2,523)titre 523 FORMAT('nom du fichier ASCII H et He shell sources : ',a) END SELECT SELECT CASE(langue) CASE('english') WRITE(*,1515) ; WRITE(2,1515) 1515 FORMAT('The stellar evolution code CESAM has been elaborated',/, 1 'in the framework of the research group',/, 2 'Internal Structure of Stars and Giant Planets.',/, 3 'If you found it useful the objectives of',/, 4 'all CESAM contributors has been reached',//, 5 'P.Morel, ON. Décembre 1989, CESAM1',/, 6 'P.Morel, OCA. Octobre 1991, CESAM2',/, 7 'P.Morel, OCA. Avril 1993, CESAM3',/, 8 'P.Morel, OCA. Décembre 1997, CESAM4',/, 9 'P.Morel, OCA. Décembre 2002, CESAM5',/, 1 'P.Morel, B.Pichon OCA. Septembre 2003, CESAM2k',/, 2 'English translation : ',/, 3 'P.Morel, OCA., Y.Lebreton, MJo.Goupil OBSPM, Février 2004',/, 4 'P.Morel, OCA. Mars 2005, diffusion of the angular momentum',/, 5 'P.Morel, OCA. Août 2006, towards advanced stellar evolution',/, 6 'B.Pichon, P.Morel OCA. Décembre 2008, lois T(tau) de MARCS',/, 7 'Y.Lebreton OBSPM, P.Morel OCA. Décembre 2008, mixtures+opacités AGS05',/, 8 'Y.Lebreton OBSPM, P.Morel OCA. Novembre 2009, etat_irwin',/, 9 'T.Guillot, P.Morel OCA Mai 2012, implantation de sorties *.csv',/, 1 'A.V.Oreshina, V.A.Baturin. P.Morel, Décembre 2016, EOS etat_saha',/, 2 'L.Bigot, C.Renaud, P.Morel, Décembre 2016, opacités Houdek12',/, 3 '***********************************') CASE DEFAULT WRITE(*,515) ; WRITE(2,515) 515 FORMAT('Le code d''évolution stellaire CESAM a été élaboré',/, 1 'dans le cadre du Groupement de Recherche Structure Interne',/, 2 'des Etoiles et des Planètes Géantes. Si son utilisation ',/, 3 'vous a donné satisfaction, le but poursuivi par tous',/, 4 'ceux qui y ont contribué aura été atteint.',/, 5 'P.Morel, ON. Décembre 1989, CESAM1',/, 6 'P.Morel, OCA. Octobre 1991, CESAM2',/, 7 'P.Morel, OCA. Avril 1993, CESAM3',/, 8 'P.Morel, OCA. Décembre 1997, CESAM4',/, 9 'P.Morel, OCA. Décembre 2002, CESAM5',/, 1 'P.Morel, B.Pichon OCA. Septembre 2003, CESAM2k',/, 3 'P.Morel, OCA, Y.Lebreton, MJo Goupil OBSPM, Février 2004, en anglais',/, 4 'P.Morel, OCA, A.Moya OBSPM, Mars 2005, diff. du moment cinétique',/, 5 'P.Morel, OCA. Août 2006, vers les stades avancés',/ 6 'B.Pichon, P.Morel OCA. Décembre 2008, lois T(tau) de MARCS',/, 7 'Y.Lebreton OBSPM, P.Morel OCA. Décembre 2008, mixtures+opacités AGS05',/, 8 'Y.Lebreton OBSPM, P.Morel OCA. Novembre 2009, etat_irwin',/, 9 'T.Guillot, P.Morel OCA Mai 2012, implantation de sorties *.csv',/, 1 'A.V.Oreshina, V.A.Baturin. P.Morel, Décembre 2016, EOS etat_saha',/, 2 'L.Bigot, C.Renaud, P.Morel, Décembre 2016, opacités Houdek12',/, 3 '***********************************') END SELECT RETURN END SUBROUTINE ecrit2