📄 node100.html
字号:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2 Final//FR"><!-- Converted with LaTeX2HTML 95.1 (Fri Jan 20 1995) --><!-- by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds --><!-- Modified Simulog 03/97 --><HTML><HEAD><TITLE> Adaptation d'un nouveau terminal en entr閑</TITLE><LINK REL=STYLESHEET TYPE="text/css" HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value=" Adaptation d'un nouveau terminal en entr閑"><meta name="keywords" value="Guide6"><meta name="resource-type" value="document"><meta name="distribution" value="global"></HEAD><BODY BGCOLOR="#FFFFFF"><P> <IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM ALT="Modulef"><A NAME=tex2html1748 HREF="node99.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif" ALT="previous"></A><A NAME=tex2html1754 HREF="node99.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif" ALT="up"></A><A NAME=tex2html1756 HREF="node101.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif" ALT="next"></A><A NAME=tex2html1758 HREF="node1.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif" ALT="contents"></A><A NAME=tex2html1759 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/index_motif.gif" ALT="index"></A><A HREF="../Guide6-18/node100.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM ALT="[BIG]"></A><A HREF="../Guide6-14/node100.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM ALT="[Normal]"></A><A HREF="../Guide6-10/node100.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM ALT="[small]"></A><BR><B> Suiv.: </B> <A NAME=tex2html1757 HREF="node101.html">8.2 Adaptation d'un nouveau terminal en </A><B>Sup.: </B> <A NAME=tex2html1755 HREF="node99.html">8 Adaptation d'un nouveau terminal</A><B> Pr閏.: </B> <A NAME=tex2html1749 HREF="node99.html">8 Adaptation d'un nouveau terminal</A><B><A HREF="node107.html" >Index</A></B><B><A HREF="node1.html" >Table des mati鑢es</A></B><HR SIZE=3 WIDTH="75%"><H1><A NAME=SECTION05810000000000000000> Adaptation d'un nouveau terminal en entr閑</A></H1><P>Le lien entre FORTRAN 3D et les terminaux d'entr閑s s'effectue parl'interm閐iaire de deux sous-programmes <b> PERFGN</b> et <b> ITRCTG</b>.<P>Le sous-programme PERFGN sera d閒ini dans le paragraphe suivant. Le sous-programme ITRCTG est construit comme suit :<P><PRE> ITRCTG : ------ SUBROUTINE ITRCTG(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) CHARACTER *(*)STRING REAL T1(*), T2(*), T3(*) INTEGER IT1(*), IT2(*), IT3(*) include 'data_f3d.ins' GOTO(1 , 2, 3, 4, 5, 6, 7, 8, 9, 10 , 11), IDEVIN C CALL ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN001 CONTINUEC APOLLO CALL ITRCT5(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN002 CONTINUEC LASER_WRITER(POST_SCRIPT) CALL ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN003 CONTINUEC X_WINDOW_V11 CALL ITRCTX11(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN004 CONTINUEC TEKTRONIX_4014 CALL ITRCT1(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN005 CONTINUEC APOLLO_5 CALL ITRCT5(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN006 CONTINUEC IMPRIMANTE CALL ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN007 CONTINUEC VERSATEK_SPECTRUM_V80 CALL ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN008 CONTINUEC VERSATEK_V80 CALL ITRCTX(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN009 CONTINUEC TEKTRONIX_4107 CALL ITRCTE(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN010 CONTINUEC TEKTRO_4105 CALL ITRCTN(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN011 CONTINUEC PHIGS CALL ITRPHG(INSTRU, T1, T2, T3, IT1, IT2, IT3, STRING) RETURN END</PRE><P><b> Attention </b>: Si vous rajoutez ou supprimez un terminal n'oubliez pas de modifier le GOTO index⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -