Librairie utiliter > Fichier sdmkdb.f |
SUBROUTINE SDMKDB (STRUCT,ENTETE,NBITEM,INCREM,NBCHAR)
Auteur : D.Martin (Octobre 1989) Derniere modification : D.Martin (6 Juillet 1999) Creation ou mise a jour de l'entete d'une structure de donnees standard (entete de longueur 4) connaissant son implantation en memoire centrale. - Arguments d'entree - STRUCT tableau contenant la structure a son adresse initiale ENTETE longueur de l'entete de la structure NBITEM nombre d'individus de la structure (valeur mise a jour) INCREM valeur de l'increment de parcours pour passer d'un individu au suivant dans la structure, NBCHAR nombre de caracteres du tableau de noms associe
INTEGER STRUCT(*),ENTETE,NBITEM,INCREM,NBCHAR
STRUCT(1)=ENTETE STRUCT(2)=NBITEM STRUCT(3)=INCREM STRUCT(4)=NBCHAR END !SDmkdb