---

Gibt es die Möglichkeit mehrere Sets auf einmal zu linken?
Gruß Stefan Peter

IP

---

Hallo Stefan,

ich habe fuer das Problem ein kleines Fortran Programm geschrieben,dass Du aus einem IUA aufrufen kannst (ich hoffe kennst Dich auf diesem Gebiet ein bisschen aus):

Gruss Stefan_I

SUBROUTINE SETLI (IZURUE)

IMPLICIT NONE

INTEGER*4 IZURUE
INTEGER*4 MNUM,LCOMPT,NUMSET,IER
INTEGER*4 ID1,ID2,JSETC,ID3,ID4,ID5
INTEGER*4 JADPS,JADFS,IENDS
INTEGER*4 NBCOM,JSET,I1

C-------------------------------------------------------------------
C VARIABLEN DEFINIEREN
C-------------------------------------------------------------------

IZURUE = 0
MNUM = 1
JADPS = 0
NBCOM = 0

LCOMPT = 4
CALL GUSINI (LCOMPT,NUMSET,IER,*999)

C-------------------------------------------------------------------
C SETS LINKEN
C-------------------------------------------------------------------

CALL GIRCUR (MNUM,ID1,ID2,JSETC,ID3,ID4,ID5,IER,*999)

50 CONTINUE
CALL GISSET (MNUM,JADPS,JADFS,IENDS,IER,*999)
CALL GUSPUS (NUMSET,JADFS,NBCOM,IER,*999)
IF (IENDS .EQ. 1) GOTO 100

JADPS = JADFS
GOTO 50

100 CONTINUE
IF (NBCOM .GT. 2) THEN

DO I1 = 1,(NBCOM - 1)
CALL GUSREA (NUMSET,I1,JSET,IER,*999)

IF (JSET .EQ. JSETC) THEN
CONTINUE
ELSE
CALL GICLSE (MNUM,JSET,IER,*999)
ENDIF
ENDDO
ENDIF

GOTO 1000

C-----------------------------------------------------------------------
C ENDE
C-----------------------------------------------------------------------

999 CONTINUE
WRITE (6,*) 'FEHLER IN setli'
CALL GILERR (IER)

1000 CONTINUE
RETURN 0
END

IP

---

Hallo Stefan I,

vielen Dank aber ich kenne mich mit IUA-Programmierung noch nicht aus.
Habe gehört man muß die IUARoutine nur ins IUA-Verzeichnis kopieren und kann Sie dann als /m .... aufrufen.
Ist es kompliziert eine iua zu schreiben, die dieses Fortran-Programm aufruft?

Grüße Stefan Peter

IP

---

Hallo Stefan Peter,

hier ein kleiner Crashkurs fuer IUA Programmierung:
Voraussetzungen:
-Fortran compiler (zB 5.1.1)
-C(++) compiler (zB 3.4.6)

1. Deklaration der Programmstandorte
catia.IUAPROC = '/home/xxx/prog/v4proc';
catia.IUAPANEL = '/home/xxx/prog/v4panel';
catia.IUAMODULE = '/home/xxx/prog/v4load';
(Der unix Pfad ist natuerlich frei waehlbar)

2. Das IUA Makro ins Verzeichnis
/home/xxx/prog/v4proc

Beispiel SETLI

* ALLE SETS LINKEN
INTERNAL

INTEGER IZURUE

*-------------------------------------------------------------------
* PROGRAMM
*-------------------------------------------------------------------

PROC

LABEL LAUS

MSG 'ALLE SETS LINKEN ? YES // NO' YES,NO
IF (KODE EQ NO) BRANCH ENDE

LOAD SETLI IZURUE
BRANCH ENDE
*-------------------------------------------------------------------
* ENDE
*-------------------------------------------------------------------
LABEL ENDE
END

3. Fortran Source kompilieren (Achtung: Statements ab Zeichen 7
Labels ab Zeichen 1)
xlf -c setli.f

Beispiel: (Kpl. Source siehe oben

1234567890
SUBROUTINE SETLI
100 CONTINUE

4. Load Modul erzeugen
shared -p setli.o -o /home/xxx/prog/v4load/setli

Noch ein kleiner Hinweis:
Das ganze Programm kann natuerlich auch als reiner IUA Code geschrieben werden, dann brauchst DU keine Compiler. Die Routinen koenntest Du uebernehmen. Leider ist die Syntax nicht ganz identisch mit Fortran, aber die Beschreibung im Manual ist nicht so schlecht.

IP