TN-05-80.pdf (2.019Mb)

DATO: 'OKTOBER 1980

PROGRAM "BIBL"

AV

FREDERICK GRAM

NORSK INSTITUTT FOR LUFTFORSKNING POSTBOKS 130, 2001 LILLESTRØM

~JORGE

2 PUNCHESKJEMAET . . . . 3

3 4

DATAFILEN BIBLFIL OG PROGRAMMET ENDEL VANLIGE PROGRAM-SEKVENSER

BIBL . 7

5

4.1 Innlesning og oppdatering av datafilen 12 4.2 Utplukking og flere oppslag for en rapport •... 12 4. 3 Sortering . . . . . . . . . . . 14 4. 4 Utskrifter . . . . . . . 15

5 S.AMMEND RAG • • • • • • • • • • • • • • • . . • • • • • • • • . • • • • • • • • • • • • • • • • 2 0

6 PROGRAMUTSKRIFT . . . . • . . . • . . . . 21

PROGRAM "BIBL"

1 INNLEDNING

Programmet BIBL er skrevet for å kunne lage oversikter over NILUs rapporter, tidskriftartikler og annen litteratur i for- bindelse med NILU. For hvert oppslag (rapport, artikkel etc) fylles det ut et skjema som vist i figur 1, med en rekke biblio- grafiske opplysninger. Dette punches på hullkort, og legges på fil i regnemaskinen. Filen kan senere rettes, oppdateres og fylles på. Med utgangspunkt i denne biblioteksfilen kan en så lage en rekke andre hjelpe-filer, sortert på forskjellige måter, og herfra kan en få ut flere typer utskrifter.

2 PUNCHE SKJEMAET

For hver rapport kan det punches inntil 6 typer kort som vist i figur 1. (Kort type 5 mangler, det var opprinnelig tenkt å være inntil 5 kort med beskrivelse av rapportens innhold (tilsvarende sammendraget på det grønne arket bakerst i en rapport), men dette er sløyfet fra 1.1.80. Samtidig er feltet for "oppdragsgiver"

utvidet fra 45 til 60 karakterer og derav feltet "kontaktperson"

flyttet fra kolonne 56-70 for rapporter med årstal< 80 til 66-80

for senere rapporter).

(/)

...,.

w Cl 2

~

UJ I-

' ^C)

! _-J

,

^.

I

cc

I co

=:J ...J

2

I

$ I I

.~-

_{• I I}

~

I

. ,

-1

;:;

--,

-

~

I -· ~

-~--,.!-~!_i_ 1 I I I I I I

I I I I I I i I I

I .1 I I I I I

1---t---;--~, -.,.--~-+---r-1, I I I I I

1 I I I I I I I

i I ! I I I I

1 I I I I

Ul

Q) C

i...

~ Q)

·..-t C

3

H

z e 0 C C

Q)

Ul

....

Q) ri ·..-t .µ Ul Q)

.Q

"

0

177'

I~(

l~

Kort nr. 1 Kolonne 1

2-4 5-6 7 8-9

NRAP

1

Rapporttype OR, TN, F, RR etc.

Nummer i serien

10 11-25 26-40 41-55

56-70

71-75

NA

NFO ( 1)

NFO ( Z) NFO ( 3)

NUT

INST

I

Årstall

Tilsammen er NRAP på 8 karakterer.

Eks: ORA32/79, TNAA3/80, FAA81/76, RRAA2/74.

Antall forfattere (max 6) Første forfatter

Annen forfatter Tredje forfatter

Forfattere som ikke er ansatt ved NILU skal ha en* foran navnet.

Utgiversted og -år, f.eks.

LILLESTRØM 1979.

Instituttnavn. Står det ikke noe her, setter programmet "NILU"

Kort nr. lb hvis NA> 3 1

11-25 NFO ( 4) 26-40 NFO ( 5) 41-55 NFO ( 6)

Kort nr. 2 Kolonne 1

2-5 NREF

7-9 NOR

11-80 NRAPTI

1

Fjerde forfatter Femte forfatter Sjette forfatter

2

Antall referanser

Språk NOR, ENG, FRA, TYS

Rapportens tittel (forts. om nød-

vendig på kdrt 2b-2c).

Kort nr. 2b 1

11-80 NRAPTI

Kort nr. 2c 1

11-80 NRAPTI

Kort nr.

3

Kolonne 1

2-5 NPR 6-9 NSI

10 NTILG

2

Rapportens tittel (forts.)

2

Rapportens tittel (forts.)

3

Pris

Antall sider, evt. "FL.P" = ^separat

paginering for hvert avsnitt.

Tilgjengelighet

1 ÅPEN - KAN BESTILLES FRA NILU 2 BESTILLES GJENNOM OPPDRAGSGIVER 3 KAN IKKE UTLEVERES

4 KUN TIL INTERN BRUK

5 BEGRENSET OPPLAG - BESTILLES GJENNOM NILU.

11-25 !

26-40 NEM 41-55

56-70 NSTE

71-80 ISBN

3 emneord

Sted, kommune, område e.l. som rapporten har tilknytning til.

Siste del av evt. ISBN-nummer (- i kolonne 75 og 79)

eks.: 7247-145-0.

Kort nr. 4 Kolonne 1

11-65 NOPP 66-80

4

Oppdragsgivers navn og adresse

Kontaktperson (etternavn)

Kort nr. 5 Utgått fra 1/1-80

Kort nr. 6 Kolonne 1

11-80 NENGTI

6

Inntil 2 kort med engelsk (evt.

norsk) tittel.

Kort nr. 7 Kolonne 1

11-80 NDIV

7

Inntil 2 kort med tilleggsopplysninger, f.eks. tidsskrift- eller annen

referanse.

3 DATAFILEN BIBLFIL OG PROGRAMMET BIBL

Informasjonene fra datakortene under kapittel 2 legges på en lagerfile i form av 790 karakterers dataposter som vist i

figur 2. Disse kan så senere sorteres eller behandles med andre filbehandlingsrutiner. Posisjonen av de enkelte elementer kan også beregnes fra figur 2*. Her er det to størrelser som er nye:

Felt 769-782 NGR (I), I= 1-7 forteller hvor mange kort det er av hver gruppe

II

783-790 MPAP Rapportnr, der nummeret og års- tallet har byttet plass, for enklere sortering. Eks: OR 74/12 i stedet for OR 12/74.

* Prisen NPR ligger f.eks. i feltene 350-353.

,...,. -.J

~ o-=----il-'-H-'-t----+--l----+--+.,,..""' ,.,, H '-' - "

r-

rv

~ .... f- ~ ... I- - ..,

:i 'z

r

e,

-Q.v

n

Q <t: L o..

·2 ~

'

-

L - I

H

~,

0.

<!: I

~;

z

^n..

z

fl) 0

c-4 r"

-s

0

') V)

-

r

1

4 ENDEL VANLIGE 'PROGRAM-'S'EI<VE NSER

Ved oppdatering av filen benyttes følgende kontrollkortsekvens:

NILU,PC.

CHARGE,X0032H-1040.

ATTACH,BIBL,ID=NILU.

ATTACH,TAPEl,BIBLFIL,ID=NILU.

REQUEST,TAPE2,*PF.

BIBL.

PURGE, TAPEl.

CATALOG,TAPE2,BIBLFIL,ID=NILU,RP=999.

789

Datakort

Skal en bare lage en utskrift greier det seg med:

NILU,PC.

CHARGE,X0032H-1040.

ATTACH,BIBL,ID=NILU.

ATTACH,TAPEl,BIBLFIL,ID=NILU.

BIBL, 789

Datakort

Ved første gangs kjøring må man lage en fil med noen rapporter.

Senere kan en lese inn flere rapporter, og sløyfe noen med feil.

Ved dette får man en lagerfil, som kan katalogiseres. Hvis en nå vil ha ut en liste sortert etter emne eller forfatter, må rapportene først legges opp en gang for hver forfatter/emne. En kan også bare være interessert i en type rapporter, ett emne eller en forfatter. Det lages da ert hj~lpe-fil.

En ønsker så å lage lister sortert etter forskjellige kriterier, og får ut en ny sortert hjelpe-fil.

Tilslutt skal en ha en utskrift av innholdet av de filene som nå

er bygget opp.

De filene som er laget underveis kan det arbeides videre med ved andre styrekort, eller en kan katalogisere dem til slutt. Da må en i så fall ha med kontrollkort for filene, f.eks.

REQUEST,TAPE2,*PF.

og

CATALOG,TAPE2,BIBLFIL,CY=2,ID=NILU,RP=30.

blant de blå kortene først.

En har 4 filer til disposisjon i programm et BIBL: TAPEl, TAPE2 og TAPE3, samt kortleseren, TAPES. "Gamm el" fil gis fortrinnsvis betegnelsen TAPEl, "Ny" fil TAPE2, mens TAPE3 kan brukes som hjelpefil. For å styre programm et leses det inn styrekort med en rekke forskjellige typer instruksjoner. I kapittel 4 er endel vanlige program-sekvenser behandlet mer i detalj, og i kapittel 5 gis det en stikkord-oppsumm ering.

IOP, INN, IUT, LIST, SORT, IPO, ICHAR, KODE, SORT2

A4 I4 I4 A4 A4 I4 I4 Al0 A4

Kol

1-4 IOP: KORT

KOPI

DROP

FORF EMNE STED

RA PT

SORT LIST

leser fra kort, setter INN=S, legger på file IUT (1,2 eller 3)

kopierer fra INN til IUT for senere å lese inn mer fra kort på IUT

som KOPI, men kan sløyfe IPO (max 10)

rapporter samtidig (til årette opp filen) legger opp en gang for hver forfatter legger opp en gang for hvert emne

tar bare med de rapportene som har samm e STED-betegnelse (de første 10 karakterene) som det som står i KODE. F.eks. NEDREATELE

i KODE tar med rapporter fra Nedre Telemark.

tar bare med de rapportene som har de samme karakterene i rapportbetegnelsen som det som står i KODE. F.eks. OR betyr at alle OR tas med, ORAAA/79 betyr at bare OR fra 1979 tas med, AN tar med alle TN og IN.

brukes ved sortering

brukes ved utskrift

STOP·.

5-8 INN

9-12 IUT 13-16 LIST

NORM FULL REF EMNE STED ENG.

ENG-

17-20 SORT

slutt

leser fra file INN, (1, 2 eller 3) ved IOP=KORT settes INN=S automatisk

INN<O rewinder filen først

skriver på file IUT. IUT<O rewinder først forteller om utskriften (kfr. kap. 4.4) normal utskrift

utskrift av mest mulig

utskrift til referanselister.

lister etter emne lister etter sted

lister med engelsk tittel

lister bare rapporter på engelsk

RAPP FORF ISBN EMNE STED TITL

SPES

sorterer ICHAR karakterer fra posisjon IPO.

normalt styres dette av SORT-instruksjonen.

LIST skal være blank

sorterer etter rapport nr.

sorterer etter forfatter

sorterer etter ISBN-nr, der dette er sorterer etter emne

sorterer etter sted

sorterer etter de 20 første karakterene i tittelen

spesiell sortering (se IPO og ICHAR)

21-24 IPO 25-28 ICHAR

sortering av ICHAR karakterer f.o.m.

posisjon IPO ved SORT= SPES

29-38 KODE hvis IOP = FORF, STED eller EMNE, og det står noe i KODE, overføres alle

rapporter med forfatter/sted/emne lik KODE fra fil INN til fil IUT.

hvis IOP=RAPT overføres alle rapporter med KODE i rapportbetegnelsen fra fil

INN til fil IUT, ex.

KODE= ORAAA/79 som tar ut alle

oppdragsrapporter fra 1979.

39-42 SORT 2 står det noe her, sorteres det først etter SORT-koden, deretter SORT 2.

4 .1 Innlesning og oppdaterin·g av datafilen

Oppdatering av datafilen kan skje på en rekke måter:

a) Ved første gangs generering av filen leses alle data fra kort, ved kortet

KORT,._,._,._5,._,._,._l

Her leses det fra enhet 5 (kortleseren) til fil 1, til det kommer et blankt kort.

b) Ønsker en å lese inn flere data til en fil, gjøres dette ved KOPI,._,._,._l,._,._,._2

KORT,._,._,._5,._,._,._2

Først kopieres alle data fra fil 1 til fil 2, og siden leses det nye kort til fil 2.

c) Ønsker en årette på noen rapportdata, kan dette kombineres med innlesning av nye data. Det leses da inn en liste med inntil IPO (max 10) rapportkoder (ex. OR,._32/76) ved

OR 32/76OR 12/79TN 3/72RR 2/76 KORT,._,._,._5,._,._,._2

Nye rapport-kort Blankt kort

4. 2 Utplukking og flere o·ppsla·g for en rapport

Hvis en vil ha ut lister sortert etter forfatter eller emne, må det først lages en fil med et oppslag for hver forfatter eller hvert emne, og så kan denne sorteres.

leser rapporter fra fil 1 og legger

ut på fil 2 en_ gang for hver for-

fatter, slik at forfatterrekkefølgen

roterer.

EMNEAA-lAA-2 legger tilsvarende ut for emner.

Minus-tegnet betyr at filene starter på begynnelsen.

/.

I

Hvis det står noe under KODE i kol. 29-38, tas det her bare med rapporter med forfatter/emne= KODE. Figur 3 viser en utskrift der en først har skilt ut alle OR fra 1979, og deretter de av disse som har HAGEN LO som forfatter.

Hvis man bare vil ha ut rapporter av en bestemt type, kan man ved kortet

får overført feltet KODE, til fil 2.

alle rapporter som har de samme karakterene som i (ex. TN"""/78, som tar ut alle TN fra 1978) fra fil 1

OR ^3/79 HAGl:N L 0

CJPP[lflAGSG J VfR OR ^8/79 HAGEtJ L CJ

OPPllRAGSGIVfR OR 21/79 H/:WFN L ^(J

CJPPDHAGSGlVFR OR 29/79 HAGE'N L 0

OPPDRAGSGIVER OR 33/79 HAGEN L. 0

OPPllRAGSGIVFR OR 44/79 HAGEN L CJ

LARSSEN S OPPDRAGSGIVER

ST0VFALLSM,!!il..INGf:.R I NARVIK I 1977-1978

LILI .. ESrRØM 1979 19 S ISBN 82-7247-083-7

1..KA8 A/S, BOKS 310, 8~0! NARVIK KRISlCNSEN

PRIS KR 1 0 BE Sl I LLf.S G,JENNOH OPPDRAGSGIVER

OVERVAKJNG AV 1..UFlFORURf:.NSNJNGSl.ILSTANDEN I NORGE. RAPPORT FOR 4. KVARTAL 1978

UI..I . .ESTR0M 19·19 3::, S ISBN 32-7247-100-0 MIL.~~VERNDEPARl~MENlf:.l

PRIS KR 20 APEN - KAN BESTILLES FRA NILU

OVERVAKJNG AV L.UF-7 F ORURF'.N~;NJNGSl ILSTANDEN I NORGE. RAPPORT FOR

1. KVARTAL 19 /9

LILLESrR0M 1919 38 S ISBN 82-7247-116-7 MJLJ0UEPARTF'~ENTE7

~•RIS KR 20 APEN - KAN BESTILLES FRA NI LU

OVERVAKJNG AV 1..UFl FORllRE.NSNINGST ILSTANDEN I NORGE APRIL 1978 - MARS 1979

LILLESTRØM ^{1979 264} S ISBN 82-7247-122-1

STAlENS FORURENSNINGSl.ILSYN KVÆVEN

PRIS KR 100 APEN - KAN BESTILLES FRA NILU

OVERVAKJNG AV LUFlFORURENSNINGSTILSTANDEN I NORGE. RAPPORT FOR 2.

KVARTAL 1979

LILLESTRØM 1979 34 S ISBN 82-7247-l?0-2 MI L,JØVERN[lEPARTf:.ME:-.NTE T

PRIS KR 15 APEN - KAN BESTILLES FRA NILU

SAMMEl"LIKNENDE MALINGER AV SOT OG SVEVESTØV I BERGEN I 1978 LILLESTRØM 1919 26 S ISBN 82-7247-144-2

L~ERGEN KOMM. Hf'.LSESEKSJ. , 5000 BERGEN BRINKMANN PRJS KR 15 APEN - KAN BESTILLES FRA NILU

Figur 3: Utsk:Pift der det er plukket ut oppdragsrapporter fra 1979, slæevet

av L.

O.

Hagen.

4 . 3 Sorte·r:ing

Programmet har 6 standard sorteringsmåter, i tillegg kan man lage sin egen sortering. Ved sorteringen leses data fra INN, og det soteres etter ICHAR karakterer f.o.m. posisjon IPO, kfr. figur 2.

Ved de 6 standard sorteringsmåtene behøver man ikke å tenke på posisjoner og slikt. Det kan ofte være mange rapporter f.eks.

med samme forfatter, og det er da ønskelig med en annen sortering i tillegg, og dette angis ved SORT2.

Her leses det fra fil 2, hvor det på forhånd er lagt ut med ett oppslag for hver forfatter (ved kortet FORFAAA1AAA2).

Fil 2 sorteres først etter forfatter, og deretter etter rapport- nummer, og det legges ut på fil 3 til utskrift.

RAPP sorterer etter rapportnr, der årstallet og nummeret har byttet plass (MPAP). TN 27/72 sorteres som TN 72/27 for å komme foran TN 12/74.

FORF sorterer etter forfatternavn, NFO. Medforfattere utenom NILU · er merket med en stjerne foran navnet (*STEINNES E), og

sorteres til slutt. Det må være oppslag for alle forfattere på rapporten, kfr. 4.2.

ISBN sorterer rapporter etter ISBN-nummer, der dette er med.

EMNE sorterer etter emner, NEM. Det må være oppslag for alle emneord som er påført rapporten, kfr. 4.2.

STED sorterer etter sted, NSTE

TITL sorterer etter de 20 første karakterene i tittelen, NRAPTI SPES spesiell sortering med ICHAR karakterer f.o.m. posisjon

IPO, kfr. figur 2.

4. 4 Uts·krifter

Programmet har 6 forskjellige typer utskrifter, som angis ved parameteren LIST, og som er vist nedenfor.

LIST,.,,.,-3,.,,.,,.,,.,REF

LIST,.,,.,-3,._,.,,.,,.,ENG.

leser fra begynnelsen av fil 3 og lager normal utskrift som vist i figur 1. Det må ikke stå noe under IUT.

her skrives det ut alt som står om rapporten, som vist i figur 5.

lager referanseliste som vist i figur 6. Står det noe på kort 7, skrives dette ut her.

lager oversikt over emner, som vist i figur 7. Det må være lagt ut opp- slag for alle emner, kfr. 4.2.

lager oversikt over steder, som vist i figur 8.

lager normal utskrift, men ved

rapporter på norsk tas den engelske tittelen NENGTI fra kort 6, og det skrives "IN NORWEGIAN", som vist i figur 9. Står det ikke noe i NENGTI, brukes rapportens norske tittel.

lager normal utskrift, men det tas

bare med rapporter på engelsk, som

vist i figur 10.

OR 1/79 THRANF KE

UPPDRAGSGIVFR

OR 2/79 GOTAAS Y UPPDRAGSGIVFR

OR 3/79 Ht\G~-N L 0 OPP[IRAGSG I VE'"R

OR 4/79 Gl~ØNSKF l I( E LAMl'I B

SIVERTSFN B OPPDRAGSCiIVrR

OR 5/79 SIVERTSFN Fl (IPPnHAGSG l VE'"R

OR 6/79 HAAG[NRUL1 SE' OPPDRAGSGIVER

OR 7/79 SJVERTSFN B OPPORAGSGlVFR

OR 1/79 THRAN~ KE

OPPDRAGSGIVER

OR 2/79 GOTAAS Y

(IF'PDF.AGSG I VFR

OR 3/79

OR 4/79

HAOFN L 0

OPPDRAW~G I VER

GRØNSKE! KE LAMB B

SIVERTSEN B OPP[IRAGSG I VFR

ANDRE INTF..RKAI..I8RER1NG 1978 LUFTFORlJRENSNINGSTILSTANDEN L.ILU:,STR~)M 1979 10 S 11 I L,JØVE.RNDF.P.

PRIS KR 5

I FORRINDELSE MED "OVERVAKING AV I NORGE"

ISBN 82-7247-086-1 APEN - KAN BESTILLES FRA NILU

SIKKERHF..TSSOl>IER VF.-.[I UKOl\17 ROI..L.F..RT UTBLl!.SING - SPREDNING AV GAS2-Sf(YEF LILLESTRP.IM 1979 44 S ISBN 82-7247-096-9

rn.JFulRF..KTORAlF..T POSTB 600 4001 STAVANGER VEMHESTAD PRIS KR 20 APEN - KAN BESTILLES FRA NILU

STØVf- AI..I..SMALI NC,F.-.R I I\IARV IK I 197 7-1 978

LILLESTRØM 1979 19 S ISBN 82-7247-083-7

LKAB A/S, BOKS 310, 8~01 NARVIK KRlSTENSEI

PRIS KR 10 BESTILL.ES GJENNOM OPPDRAGSGIVER

VURDERING AV LUFlf-ORURENSNINGE.N I H0YANGER ETTER BYGGING AV NYTT ALUMINIUMVERK

L.ILL.ESTR01'1 19-/9 42 S ISBN 82-7247-102--7 ARDAL OG SUNDAL VERK A/S HOVE[IK OSLO

PRIS KR 20 APEN - KAN BESTILLES FRA NILU

WIND Al\1[I TEMPERATURE PROF lLF..S AT TERUEL POWER STATION. NOVEMBER 197 LILLESTRØM 1979 25 S ISBN 82-7247-094-2

ECOPOLSA, SEREI..ANli, SPANIA

PRIS KR 10 APEN - KAN BESTILLES FRA NILU

CORROSION ON GAS TLIR8INS STATFJORD A - PRELIMINARY REPORT LI LL.ESTR0M 1979 28 S ISBN 82-724 7-133- 7

MOBIi.. EXPLORATION NORWAY lNC.

PRIS KR 40 BESTILLES GJENNOM OPPDRAGSGIVER

V I ND08SERVAS,JONER FRA BRE V I KSUNDET I PER IO DEN 1. 10. - 31. 12. 1978 LILLESTRØM 1979 36 S ISBN 82-7247-099-3

VASSDRAGS OG HAVNELABORATORI~T VED NTH TØRUM

f~IS KR 20 APEN - KAN BESTILLES FRA NILU

Figur 4: Normal utslæift.

ANUR~. l Nl F.-.RKAL. l 8fiE R l Nf; l 978 LUl-'Tt-= I)RIJRF.NSN I NGST I LSTANDl:.N LILLFSTR,1M 19/'i 10 S

I NTF.-.kl<AL. !BRER. ANAi Y~;ER M 1 LJØ VERNDFP.

PRIS l<R 5 Af-'f:N - KAN BESTll..l.E:5 FRA NILU

SECON[J INTF.-.RL.AHORAlORY 7 F~;l 1978 "AIR QUALITY MONITORING IN NORWAY I F Oh:[-:!I NDEL:3E HEU "OVERVAI(

me,

AV I NOR(E"

ISBN 82-7247-086-1 SVO'JELD I Of(SYD

SIKKt:-:RHFTSSONER Vt-:'.0 UKONTROLLERT UrBL/?,S ING - SPR[DNING AV GASS-SKY!

I IU..f:.:'-;7R0M 1979 44- S ISHN 82-7:247·-09b-9

GASSKYER SPREDNING UTE LASING

oi..n,n

lREKl ORATl:.T f-'(JS-I8 600 4001 SlAVANGIC:R VEMMESTA PRIS l<k 20 APEN - KAN E:E:'::T I LLE:S FRA NI LU

SAFF.: r Y ZONES DUR I Nll BLOW-OUTS -- D !~~PERS I ON OF GAS CLOUDS.

ST0VF1~I..LSMAI.INGER l NARVIK I 1977-1978

Lil .. l.ESTRØM 1979 19 S ISBN 82-7247-083-7 I .LIFTF(JRURENS. STØVF AU.. MAL INGER LKAB A/S, BOKS 310, 8~01 NARVIK

PRIS f(R 10 L~ESl ILLES GJl'-.NNOM CPPDRAOSGIVER OUST l"ALL MEASURE-.MF..NTS lN NARVIK 1977-1·na.

NARVIK l<RISTENS

VURDERING AV LIJF rFORI.JRl-:NSNINGEN I HØYANGER ETTER BYGGING AV NYTT Al. UM 11\1 I UMVE:.RK

ULLE:'iTRØM 1979 42 S ISBl-.j 82-7:247·-102-7

LUF ff ORURENSN. Al..lJH IN I UM I NDUST HØYANGER ARDAL OG SUNl.lAI.. VFRK A/S HOVEDK 09-..0

PR JS l<R 20 APEN - KAN BEST! LLES FRA NI LU

AIR POLLUTION IN Hl':IYANGER AFTER BUILDING AV NEW ALUMINIUM PLANT.

Figur 5: Full utskrift.

l HR/'1NE le'. E

GOTAA~; Y

HAGEN L. 0 Gl·WN::;fCE 1 K E

LAl1B B SIVERTSEN B SIVERTSEN B HAAGl:"tJl~ULI S F SI Vf:RTSF.:N E:

HACiFN L 0

SIVF.:RTSf':N B

"FRIBERG A G SCH.JuLnAGFR .J

*THORSTAD 0 WATHNE BH

*LFlRA HL

ANDRI::: INTERKAL.IBRt.RING 1978 I FOl~llINDELSE MED "01/ERV!-',f<ING A\' 1..1.Jl-'IFORURENSNINGSTIL.STANfJEN I NORGE"

LI LI . .ESTRØM 1979 <NI 1..U OR i /79)

sn:1.:ERHF..TSSONER VEI.I UKOl'IJTROI..LERT UTPL/?,'3ING ·- SPREDtHNG AV GA:::.;s-'.XYER L.ILLESTR0M 1979 <NILU OR 2/79)

ST0VFAL.I .. SM/?.L.INGER I NARVIK I 1977-1078 L.ILi£SfR0M 1979 <NILU OR 3/79l

VURDERING AV I_Ufl"FORURENSNINGF..N I HOYANGER ETTER BYGGING AV NYTT AL.UH 11'1! I UMVERK

I..I LLE~;TR0M 1979 ( i\l I LI.J Of~ 4/7·;:, l

WI ND AND TEi•!Pt=:RA Tl.IRE PROF I LE::; A f TERUEL POWER STAT I ON. NOVEME:EF: 1? 7:::

l..I LL.ES TRØi"I 1 979 (NI LU OR ^5/79 l

CORROSION ON GAS lUR8INS STATFJORD A - PRELIMINARY REPORT LJLLESTR0M 1979 (NIL.LI OR 6/79)

V I NDOBSERVASdONER FRA BF:EV I KSUNDEl I PER I ODEN 1. 10. - 31. 12. l 'C/78

I .. I I..LESTR!c1i'1 1979 (NI 1..U OR 7 /79)

OVFkVAKJNG AV 1..UFTFORI.JRF.-.NSl'IJINGSTILSTANDEN I NORGE. RAPPORT FOR 4. l(VARTAL 1978

LIU_ES1R0M 1979 <NILU OR 8/79)

MEfEOROLOGISKF DAfA FRA NEDRE TELEMARK VAREN ¹⁹⁷⁸ LII..L.ESTR0M ¹⁹⁷⁹ <NILU OR ^9/79)

Ml?.L.INGER AV 07.0N I m,1..0 OG NEDRE TELEMARI( SOMMEREN 1978 LI LLESTR0M 1 979 <NI LlJ OR l 0/79)

i'IATf.RIAI..STRl?.1i'IANAI..YSE FOR Dlf(LORi•l~TArJ I NORGE L.ILL.£STROi'1 19N (l'IJII..I.J OR 11179)

Figur 6: Referanseliste.

TN ^31/72 EMIS.JON TI DS VAR I AS.JON SVOVELDIOKSYD NORGE OR ^41/79 FAF<Ril(l(UTSL IPP SVOVEU.I r OKSY[J I MM I S.JONSl'i/!tL I NG DRAMMEN

TN ^70/74 FELTMETODER KORR. HASTIGHET VASSDRAG TN 46/73 Ft.LTSTAS.JONER ATM. K(JRROS,JON BESKRIVELSE

TN 9/79 FENOL INTl:::RKALIBRER. ANALYSE ASKIM

OR 25/77 FERROMANGAN STØV Sl1F.-l.l EVERK KVINESDAL

OR 35/72 FE-SI VERK srnv1-:ALL SØRFOLD

OR 44/72 FF-Sl VERK STØVFALL. SØRFOLD

TN 48/73 FILTF.:R TEST KOMi'1UNEKASSE I NS TRIJMENT TEST

OR 2.8/77 FIL.TER MIKR(JSKOPERING SANOBLl?.SING OSLO

TN 39/72 FILTER PARTIKLER SOT

cm

²⁶¹⁷⁷ Fll TER KORROSJCIN MER/?.KER

TN 59/73 FILTER Ml?.LElJfSTYR

OF< 13/77 FIL TFR OL,IEDAMP

TN 18/78 F.JERNMALING TEi'IPERATUR KALIBRERING RAFNES OR ^9/75 FL.UOR SVOVEL.DI Of(SYD LUFTKVALITET i!!.RDAL

TN 4/71 FLUOR ALUMINIUMINDUST UTSLIPP

OH ^18/71 FL.UDR ALUMlNIUMJNDUST UTSLIPP

OR ^19/71 FLUOR PRØVETAKING

OR ^19/77 Fl.YMM.INGER HYDROKARBONER NORDSJØEN

OR 22/71 FLYPLASS LOKALISERING UJFTFORURENS OSLO-OMR/!tDET

TN 8/Tl FL.YPRBVrn SVOVEL.DJ OKSYD SUL.FAT DANMARK

TN 58/73 FORDAMPNING NALEUTSTYR NEDBl?.tRMALING

OF< 80/74 FOREKOMST L. r MSl OFF ER L.UFTFORURENSN SKEDSMO OR 16/78 FORMALDEHYD NALEINSYRF UTSI..IPPSMALING DRAMMEN

TN 64/73 FOHSØKSPLAN ATM. KORROSJON EI..EKTROK. METODE TN 12/77 FORURENSNING NEDBØR

OR ~-7 /73 FORVITRING LUFTFORLIRENSN TRONDHEIM

TN 11/71 FOSSILT BRENSEL UTSLIPP LUFffORIJRENSN.

TN ^1/76 FOSSILT BRFNSEL. SVOVE::l.DIOKSYD EUROPA TN ^10/71 FOSSILT BRENSEL UTSLIPP UJF TFORURENSN. NORGE

TN 15178 FOSSILT BRENSEL MILJ0PAVIRKNING VARMEKRAFTVERK TN 2/77 FOTOK.JEMISKSMOG

OR 17/76 FOTOK&:Ml SPREJ.lN I NGS BER L.UFTFORURENS NEDRE TELEMARK TN 15/79 FOTOKJ. OKSYDAN. MODELLER DATAPROGRAM GRENLAND OR ^43/78 GARASJE l:1JLTRAFJKK L.UF T FORURE.NSN. OSLO TN ^36/72 GASSER LUFTKVALITET GRENSEVERDIER

Figur ?: Emne-oversikt.

OH 34/79 Af1KTIS AF-_RQSOLER I..UFTF- ORURENS.

OR 49/79 BERGEN LUF rFORURENSN. BILTRAFIKK TUNNEL OR 74/79 BERGf"tJ LUFTFORURF..NS. 1RAFIKK l(ARTLEGG I NG

OR 44/79 BERGEN SOT SVEVESTØV

OR 41/79 DHAMMFN FABRlKKLITSI..IPP SVOVEUI I OKSYD IMMISJONSMl!.LING OR 39/79 FINNt1ARK EL.EMEN rER VEGETASJON UTSLIPP

OR 46/79 GBTEHORG SPOR~;TOFF TLINNF.-.L. DILTRAFH<K OR 38/79 HOLMESTRAND LUFTFORURENS. rt.lNNEL TRAFIKI<

OR 4/79 Hf:iYAt~GFR 1..LIF1 FCJRURENSN. ALUM!NIUMINDUST OR 28/79 ISLAND SPRf.DNING UJFTKVAL I TET

Ok 48/79 L IL Lf"HAMMf'R LUF1 f-ORLIRF..NSN. BIL 1 RAF I ~:K l(ARTLEGG I NG OR 16/79 LILLESAND S ffJVi'1/?,L INGER Sl"Kt:=:DNING SVEVESTØV OR 3/79 NARVIK LUFT FORURENS. STØVFAI..L Ml!.LINGER OR 22/79 NARVIK ARBEIDSMILJØ TUNNELANLEGG BIL TRAFH(K OR 7/79 NFflRF TFLEMARK V I NDOBSF..RVASJ.

OR 30/79 NEDRE TELEMARK NETEOROL. DATA STAL BEARB.

OH 9/79 NF[IHE TELEMARK METECJROL.. DA1A STAlISl. BEARB.

OR 13/79 NEDRE TELEMARK METf.OROL. OATA STAT IST. BEARB.

OF< 17/79 NFDRE TELEMARK METEOROL. DATA STAl 1S1. HE ARB.

OR 27/79 NEDRE TELEMARK METEOROL. DATA STAT. BF.ARB.

or,

15/79 NEDRE TEL EMARK JJ!S LUF TFORURENSN.

OR 6/79 NORDSJØEN KORROSJON GASSTURBIN OR 10/79 OSL.0/N. THE MARK OZON l1o!'1L INGER

OR 40/79 OSLO NI TROGENOKSYDER VARMEKRAFTVERK LUFTFORURENSN.

OR 47/79 OSLO !-'ARTIKLER IrJENTIF !SERING PAKKEROM

OR 31/79 OSLO LUF TFORURENS. TUNNEL BILTRAFIKK

OR 37/79 SARPSL~Ol"lG LUFTFORURENS. TRAf-IKK KARTLEGGING OR 5/79 SPANIA VINDPROFILER TEMPERATURPROF. VARMEKRAFTV OR 45/79 SPANIA METEOROL. DATA VARMEKRAFTVERK

OR 25/79 STJØRDAL BILTRAFIKK TUNNEL

OF< 19/79 SVAL.BARD SKOR STE I NSH0YDF-_ KULLFYRT KRAFTV VARMEKRAFTVERK OR 14/79 TRONDHEIM LUF ffORUR£NSN. BILTRAFIKK

OR 43/79 VARANGER VARMEKRAFTVERK KULL LUFTFORURENSN

OR 23/79 VARANGF.:R SPRE ON ING LUFTKVALITET

Figur 8: Steds-oversikt.

on

1/79 THRANE KE OPPDRAGSGIVER

OR 2/79 GOTAAS Y

OPPDRAGSGIVER

on

3/79 HAGEN L 0

OPPDRAGSGIVF.R

OR 4/79 GR0NSKl:I K F.

LAML'i B SIVERTSEN B OPPDRAGSGIVER

OR 5/79 SIVERTSEN B OPPDRAGSGIVER

OR 6/79 HAAGENRUD SE OPPDRAGSGIVER

SECOND INTERI..ABIJR/HORY TEST 1978 "AIR QUALITY MONITORING IN NORWAY' LILLE::;1R0M 1979 10 S ISBN 82-7:247-086-1

MI LJ.Ø'.lE.RhW.EE'..

PRIS l<R 5 APEN - KAN BESTILLES FRA NILU

IN NORWEGI,

SAHTY ZONES DURING L-!l.OW-OUlS - DISPERSION OF GAS CLOUDS.- LILLESTR01'1 19-19 44 S ISBN 82-7247-096-9

OL JED I R!--:KTORATE r POS rB 600 4001 STAVANG ER PRIS KR 20 APF. N - KAN J3EST I LLE:S FRA NI LU DUST FALL. MEASIJREMt::NTS IN NARVIK 1977-1978.

L.ILI .. E:,;1RØM 1979 19 S ISHN 82-7:247-083·-7 LKAB 1VS, HOKS 310, 8~•01 NARVIK

PRIS l<R 10 BESTILLES GJENNOM (PPDRA GSG I VER

IN NORWEGI VEMMESTA

IN NORWEGI

!(RISTENS

AIR Pl)I..LU1 ION rn H"1YANGER Af-TER BUILDINIJ AV NEW ALUMINIUM PLANT.

LILLESTRØM 19,9 42 S ISBN 82-7247-102-7 IN NORWEGI ARDAL OG SUNDAL VERK A/S HOVEDK 09-0

PRIS KR 20 APEN - KAN BE Sl f I .. LES FRA NI LU

WIND AND TEMPl::":RATURE PROFILES AT TERUEL POWER STATION. NOVEMBER 19 L.ILLE:3TR0M 1979 25 S ISBN 82-7:247-094-2

ECOPOLSA, SERELAND, SPANIA

PRIS KR 10 Af'EN - KAN BESTILLES FRA NILU

CORROSION ON GAS rURBINS STATFJORD A - PRELIMINARY REPORT LII..L.E:3TR0M 1979 28 S ISBN 82-7:247-133-7

MOBIL EXPLORATION NORWAY INC.

PRIS KR 40 BESTJ l.l .. ES GJENNOM CPPDRAIJSG I VER

Figur 9: "Normal utskT'ift" med engelske titler.

OR 1:::/79

!Jr{ 34/7";1

OR 3/::./79

OR 42/79

OR 45/79

·c. i 'Jc F: T :-.r I~ F:

HA/11.,lNF•:I lfl S E

EI u;v T K f· ~I

OPPLIRA1_,·;G I I/FR ,fRAliN K A

HAAGENF,Ull :',: E -lll~L INGE R

EIDS\/Ik K ~I OPPDRAGSGIVF:R SIVERTSEN B OPPDRAGSGIVER

l.J! rm A'·W TEMF'ERATURE PRC•F I LES AT

r

El'lJJEL POWER STAT ION. NO'vEMf:E"~•: 1 ':i7P

LILLESTRUM ^{1979 25 S} ISBN 82-7247-094-2 ECOPOLSA, SERELAND, SPANIA

PRIS ~R 10 lPEN - KAN BESTILLES FRA NILU

COF:F-:O·:;IOt·l ON Gh:3 TURBIN':: ::;TATFJOkll A - PRELIMINARY REPORT

l ILLES:TRC1M 1979 28 S ISBN 82-7247-133-7 MOBIL EXPLORATION NORWAY INC.

PRIS KR 40 BESTILLES GJENNOM OPPDRAGSGIVER A MODEL FOR HEAVY GAS DISPERSION IN THE ATMOSPHERE l ILLES1R0M 1979 39 S ISBN 82-7247-113-2 NFNF

PRIS KR 20 lPEN - KAN BESTILLES FRA NILU THE EURASIAN SOURCES OF ARCTIC A~ROSOL l ILLESTR0M 1979 36 S

PRIS KR 20 lPEN - KAN BESTILLES FRA NILU

ATMOSPHERIC CORROSION TESTING OF METALLIZED,METALLIZED AND PAINTEU, AND PAINTED STEEL. FRAMDRIFTSRAPPORT NR. 3

l ILLESTR0M 1979 22 S

PPIS KR 10 BESTILLES GJENNOM OPPDRAGSGIVER

ESTIMATES OF CONCENTRATION FLUCTIJATIONS IN AN INSTANTANEOUS CLOUD l ILLESTR0M 1979 15 S ISBN 82-7247-142-6

OLJEDIREKTORATET

PRI:c: KR .10 lPEN - KAN .BESTILLES FRA NILU

METEOROLOGICAL INVESTIGATIONS AT THE TERUEL POWER PLANT SITE

LILLESTR0M 1980 ISBN 82-7247-146-9

FCOPOLSA,SERELAND,SPANIA

Figur 10: Normal utskrift med rapporter på engelsk.

•. ·~ -, ... ·~i

I

I

!

/iO

kopierer fra fill til fil 2

lc3er flere rapporter fra k~rt og leggP.r på fil 2

kopierer fra fil l til fil 2, men droppe>• 4 rapporter leee.r liste over rappor t ar san 131'.al droppes

Leser [i.ere rapporter fi•a kort til fil 2

. Leeer fr:,. fil 1, legger på fiZ 2 en gang for hver forfatt~

RAPp; sorterer fil 2 etter forfatter, og legge,. på fil 3 fot' hver forf:.tter sc;rtere3 det ette!' rapportnr, normal utskrift

' '

.:z

1 Leser fr:,. fil 1, legger_ på_ (~l 2 en gang fo:-

=:

^emne

-1

ll-fN

^{E sorterer}

^rct

² etter emne, og leggger pd fil 3

/:MN utsk!'i;t for emner

J'

_Is s.no _ . ' -:+

s~r-:t~~~r ;i::-~~t:e~

s~~I::

^.legge:~~

~:l-~ [~ . , ·-·· _

¹

T£D , ' ' , ' I ' ₁ uts'kr~ft for steder ' I : :

-: j~T:-

1-,-I

-!-, jTT7

¹

~,~-r-~T-~11 ^!

^{i~ 11}

^'i,

^{I! i! I:}

¹¹¹

^{i i 11;}

^{!7T I'}

^{·!i 1·}

i ' · · R 79

-•+

^{ie~er _f"ra}

^rei

^{l og tar a:Ze rappor!=.} aC:~'::"t! __ ^?RAA,./79

·- ,l ··- · F NG,~-:- .-- '· ' -- ---- - --· . og lcc;g<'r på fil 2; enaelsk utskrift

I : · I · ,

· ---~-, ~~ ~~,~ / r-,-~,jL_ ~ =~~ _'-_:~_-_· __

^i_,

-_~=--~--- --~~, 1 :~_-_,

1'

:J~-~-~ ··-: ' ^{! !}

^{I I I ,}

i-,T~~-:_~--:~t": -·---· -

" .,._ snrt~Per' c:. te!'" de 20 første karak t erene i tittcl.m, ^{1 1 1} I

LIS • 2.

_-_1l=·U:L.-1..,I. _'. T;:f~~-~ -,-•--~~:- ^.T.U ~g.:!~a~-~:~~-2~ ~u:~

^:tskr~~

^·= ;'[. :. _ ^I~

SORT ,t St"ES 4-1 C\ .10 1 I sor ter cr rapport.er fr.:z f'il .Z et ter de 20 første i«zrckter,m,;

I . . .. . . -

I

LI ST -l.

NoRMI _. .

1

f • .;,.r:. po31'.tljon -119 (oppdra('S!]iVe~), og Zt?;;r:er .på fil 2 normal: utskrift

I

Fo~i: ~ J. R~NtKEI tar ut .:zi.i:P rap;,or·cr fra fil 1 med forfattPr :;_:::,tNS/XI X

L l ~ T -2. E

► .

^O!J lrgr;,er• ;xi fi'.l 2; rr.fP.ranMliste-uts'krif:

I

~ MNE

ORT LIST

I

'i?AP

1 l

-3

STo?

EMNE:

APP

tar u! o l l» rapporter fra fil 1 mod "AT:.J.KOR!/0S" sa:, ett at>

011•1cnc "!' !cager på .fil i. L·a'.i" fal'fa t t,⁰r,,avn og c-n;a er ;,cl inntil 15 kr:raktcrcr

1 men det ses lxzrr. pd d.; 10 [ors xc l-.arakteren2. Fil 2 snrtcrei, cJ ettm· rcp portrzype tiZ fil 3,

; ,i

:-1 . :

^{J_ .}

I'

^{I . . I I ..}

^I

^(_Ii_

^7;

I ' ' I.

I

I

' : ! : ., •• _;; ... I I ';

··h·: ^'1T

^I.

I

^{I __ ,}

: __

^·i

, .;._ __ i_.__!+- _,

^{l, 1' i; I;,}

^J i' J. ', ₁

^{I I _l:_}

_LL:_,

'i .·, -·, ,· _!;· ^{I I i:,}

ri~

^.

^i-1-t- l

¹

^·11·! rn · ·

^{' '.'}

^I W.' ·' ' . il. ^'

' ' I I

~ :_,_. -· ~-=- ~•...!.!.., ~ I I lf U , .. 1· •• II :tO JI '.'I It,. ^{1' ,} .. ,. ,. , _, •• , n a 1',. J , ◄I U Uh◄\• •• ",.~ \I,, ,i )I O " ) ' , . • • l-'I •I,., •••• ,.,.,_ ,. I II • ., ., • ' ~ " ....

og det l~r:cs rn c:nnc-ut~krift.

Slutt.

r l

I I

6 PROGRAMUTSKRIFT

Programm et benytter tre subrutiner, KOMAS, SffIFTA og STSORT.

KOMAS benyttes til å lage en maske som benyttes når noen rapporter skal tas ut etter det som står i KODE (FORF, EMNE eller RAPT).

SHIFTA benyttes til å justere teksten i et felt, f.eks. hvis det er skrevet til venstre i feltet, mens det egentlig skulle ha vært høyre-justert tekst.

STSORT kaller de systemrutinene som benyttes ved sorteringen.

BIBL

5

10

15

20

25

30

35

40

45

50

C C C C C C C C C C

PFWGRAM BIBL( INPUT, OUTPUT, TAPE5=INPUT, TAPE6=0UTPUT, 1 TAPEl=/790, TAPE2=/790, TAPE3=/790, DEBUG=OUTPUT>

DI MFNS I ON NGR ( 7), NFO ( 12), NUT< 2), NRA PTI ( 21 ) , NEM< 6 > , NSTE < 2), NOPP ( 8 >, 1 NENGTI ( 14 ) , ND I V C 14) , IFS C 2 >

DIMENSION ITILG(4,6)

DIMENSION ISORT(3, 6), IOPTC9), JLISC7) DIMENSION LISTE(10)

INTEGER SORT,SLAS,SORT2 DATA ISORT/4HRAPP,783

1 ,8,4HFORF, 16, 10,4HISBN, 120,5,4HEMNE,359, 15, 14HSTED,404, 10,4HTITL, 140,20/

DATA IOPT/4HKORT,4HLIST,4HSORT,4HFORF,4HEMNE,4HSTED,4HDROP,4HKOPI, 14HRAPT/

DATA ,JLIS/4HNORM, 4HFULL, 4HREF. , 4HEMNE, 4HSTED, 4HENG. , 4HENG-/

DATA lTILG/lOH ÅPEN - KA, lOHN BESTILLE, 10HS FRA NILU, 1H , 1 l OH BESTILLES, 1 OH GJENNOM O, 1 OHPPDRAGSG I V , 2HEI~,

210H KAN IKKE, lOHUTLEVERES ,2(1H ), 310H KUN TIL I, lOHNTERN BRUK,2C1H ),

410H BE'GRENSET, 10H OPPLAG-BE, 10HSTILLES GJ, lOHENNOM NILU 5, lOHIKKE FERDI, 1HG,211H )/

MAM=77000000000000B MAB=55000000000000B

MASK=77770000000000000000B MASR=7700000000B

SLAS=5500000000B IBL=lOH

NRAP=IB8=8H ,JBL=4H

IKOS=O IKOR=O IKO=l 100 CONTINUE

IFCIKOR. GT. 0) PRINT 105,LIN, INN,LUT, IUT

105 FORMAT<• LEST•I4• RAPPORTER FRA FILE•I3•, SKREVET•I4• RAPPORTER PA 1 FILE•I3)

IKOR=l LIN=LUT=O

RF.1-\0 101, IOP, INN, IUT, LIST, SORT, IPO, !CHAR, KODE, SORT2 101 FORMAT (A4,214,2A4,2I4,A10,A4)

!F <IOP. EQ. 4HSTOP) STOPl

PRINT 103, IOP, INN, IUT,LIST,SORT,SORT2 103 FORMAT (1H1,A4,215,3(1X,A4))

WP KORT /RAPT /KOPI /FORF /EMNE/DROP/SORT /LI ST /STOP FOHF/EMNE - LEGGER FLERE GANGER PÅ FILEN

HVIS DET VED FORF/EMNE STAR NOE I FELTET KODE, TAS BARE MED DE RAPPORTENE SOM HAR FORF/EMNE LIK KODE

DROP KOPIERER, MEN DROPPER INNTIL 10 RAPPORTER RAPT TAR UT RAPPORTER MEO MASKE FRA KODE

SOM TYPEBETEGNELSE, F.EKS. OR LESER FRA FILE INN: KORT 5, FILE 1 IUT FILE LEGGER PA FILE IUT

LIST NORM/FULL/REF. /EMNE/STED/ENG. /ENG-

55

60

65

70

75

80

C

C

C C

C C

13 106 14 15 16 29

23 31 107

24 85

90

95

100

105

110

115

26

27 C

25 C

28

8

81 800

9

18 19 12 109

LIST TRENGER IOP=LIST, IUT=O SORT TRENGER IOP=SORT

If<KE NOEN LI ST VED SORT

sorer

SORTERER ICHAR KARAKTERER FRA POSISJON !PO

~:ORT RAPP /FORF / ISBN/EMNE/STED/TI TL/SPES SORT2 SEKUNDÆR SORTERINGSNØKKEL

IRT=IFU=IRE=IENG=ILIS=O DO 13 I=L 9

tF CIOP. EQ. IOPT(l)) GO TO 14 CONTINUE

PRINT 106, IOP

FORMAT (1X,A4* ER FEIL IOP•l STOP4

BIBL (forts.)

120

JOP=I

IF (INN. GE. 0) GO TO 15 INN=-INN Å REWIND INN CONTINUE

IF (IUT. GE. Ol GO TO 16 IUT=-IUT Å REWIND IUT CONTINUE

GO TO (6,29,28,27,27,27, 160, 150,26),JOP IF <LIST. EQ. JBLl GO TO 31

00 23 1=1,7 - -

IF (LIST. EQ. JLIS(lll GO TO 24 CONTINUE

CONTINUE PRINT 107, LIST

FORMAT (1X,A4• ER FEIL LIST-KODE•>

STOP5 ILIS=I

IF (

rus.

EQ. 2) IFU=l IF CILI& EQ. 3) IRE=l IF <ILI& EQ. 61 IENG=l GO TO 3

IRT=l

CALL KOMAS(KODE,MAST>

KOR=KODE. ANO. MAST GO TO 3

IKOD=O Å IF (KODE. EQ. !BLI GO TO 25

HVIS DET STAR NOEN KODE, SKRIVES ALLE RAPPORTER MED SAMME FORFATTER/EMNE IF (IOP. EQ. 4HFORFI IKOO=l

IF CIOP. EQ. 4HEMNE) IKOD=2 IF (IOP. EQ. 4HSTEOI IKOD=3 CONTINUE

GO TO 3

SORT

IF (SORT. EQ. JBLl GO TO 81

tF (SORT. EQ. 4HSPESLGQ.TO. 12.

DO 8 K=L 6

IF (SORT. EQ. ISORTll,K>> GO TO 9

CONTINUE PRINT 800,SORT

FOF!MAT ( i

x.

A4• ER FEIL SORTERINGSNØKKEL•>

STOP2

IPO=ISORTC2,Kl Å ICHAR=ISORTC3,Kl IF CSORT2 EQ. JBL) GO TO 12

00 18 f(=L 6

IF (S0RT2 EQ. ISORT(l,K)) GO TO 19 CONTINUE

PRINT 800,SORT2 STOP3

IP2=ISORT(2,K) A IC2=ISORTC3,K) CONTINUE

CALL STSORT(IPO, !CHAR, INN, IUT, IP2, IC21 PRINT 109, IPO, !CHAR, INN, IUT

FORMAT l• SORT UTFØRT, IPO=•I4•, ICHAR=•l4*, INN=•I3•, IUT=*I4>

IF < IP2. GT. Ol PRINT 109, IP2, IC2, INN, IUT GO TO 100

C

C KOPIERER FRA INN TIL IUT

C

150 CONTINUE

125 READ ( INN, 210) INST, NRAP, NA, NFO, NUT, ISBN, NREF, NOR, NB, NRAPTI, NPR, lNSI,NTILG,NEM,NSTE,NOPP,NENGTI,NDIV,NGR,MPAP

If (EOF(INN)) 100,152 152 CONTINUE

LIN=LIN+l

130 WRITE(IUT,210) INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPTI,NPR, lNSI. NT ILG, NEM, NSTE, NOPP, NENGTI. NDIV, NGR, MPAP

LUT=LUT+l GO TO 150

135

C C C

160 108 161

162

163

STRYKER RAPPORTER (FOR SENERE OPPDATERING) BIBL (forts.) READ 108, LISTE

FORMAT (10A8) CONTINUE

READ (INN,210) INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NG,NRAPTI,NPR, 1 NS I , NT! LG, NEM, NSTE, NOPP, NENGTI , NDI V, NGR, M PAP

IF (EOF( INN)) 100,162 CONTINUE

LIN=LIN+l DO 163 I=l, IPO

IF (NRAP. EQ. LISTE(Ill GO TO 164 CONTINUE

WRITE(IUT,210l INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPTI,NPR, lNSI,NTILG,NEM,NSTE,NOPP,NENGTI,NDIV,NGR,MPAP

LUT=LUT+l GO TO 161

164 PRINT 165, NRAP, NFO( 1), NFO( 2), ( NRAPTI ( .n . ^{J=l, 7)} 165 FORMAT <• DROPPER •A8,2X,A10,A5,2X,7A10)

~=3

155 JS=8 A JT=14

168 IF ( NFO (Kl . NE. !BU GO TO 1 66

140

145

150

IF (NRAPTI (JS). NE. !BU GO TO 166 GO TO 161

166 PRINT 167,NFO(K),NFOCK+l), (NRAPTI(J),J=JS,JT) 160 167 FORMAT (19X,A10,A5,2X,7A10)

K=K+2 A IF CK GT. 61 GO TO 161 JS=15 Å JT=21

GO TO 168

3 CONTINUE

165 NRAPS=NRAP

IF C NRAPS. EQ. I BS ) NRAPS=O IF (INN. EQ. 5) GO TO 5

C

C LESER FRA FILE

170 C

175

180

C C C

185

4 7 190

195

200

205

210

1 102

2 10 110

112 C

C C

READ llNN,210) INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPTI,NPR, 1NSI,NTILG,NEM,NSTE,NOPP,NENGTI,NDIV,NGR,MPAP

210 FORMAT C i

x.

^{A5, A8, Il,} 7CA10, A5l, AlO, 2A4, IL 21A10, A4, A4, IL 4CA10, A~5), l~A10,A5,A10,A5,28A10,7I2,A8>

IF CEOF(INN)) 100,99 99 CONTINUE

LIN=LIN+l GO TO 200

6 INN=5

IF (LIST. EQ. 4HNORM) ILIS=l 5 CONTINUE

LESER FRA KORT

00 4 l=L 81 NFO( I )=IBL DO 7 I=L 7 NIJR ( I )=O NBEGR=ISBN=IBL NSl=NREF=NOR=NPR=JBL NB=NTILG=O

IF CIKQ EQ. O> GO TO 100 READ (INN, 102> lKO FORMAT (11)

IF CIKO. GT. Ol BACKSPACE INN IF CIKO. LT. !KOS) GO TO 199 IKOS=IKO

IF (IKQ LE. 0) GO TO 100 NGRCIKO)=l

GO TO (10,20,30,40,50,60,70), IKO CONTINUE

RE/-)D CINN,110) NRAP,NA, (NFO(I),!=1,6),NUT,INST FOFIMAT ( 1 X, AS, Il, ⁴⁽ A10, A5l, AlO)

LIN=LIN+l

IF <NA. LE. 0) NA=l

DECODE (8, 112,NRAPl IAR FORMAT (6X, 12)

R/4PPORTER FRA FØR 1980 HAR KORTERE FELT FOR OPPDRAGSGIVER NOEN RAPPORTER ER PUNCHET SOM RP I STEDET FOR RR

IF ( ( NRAP. ANO. MA~;K) . EQ. 2LRP > NRAP=NRAP+20 0000000000000008 FYLLER INN/ I OR 18/76 HVIS DENNE MANGLER

BIBL

(forts.)

C

215

220

225

11 111

230 20

120 21 235

240

245

250

IF ((NRAP. AND. MASR). EQ. SLASI NRAP=NRAP-5000000008 BYTTER OR 13/76 TIL OR 76/13 FOR BEDRE SORTERING MARP=77770000000000B A MARS=77770000B

MRAP=NRAP. AND. MARP

IF <<MRAP. AND. 7700000000000081. EQ. 5500000000000081 1 t1RAP=MRAP-22000000000000B

MRAR=NRAP. AND. MARS MPAP=NRAP. AND. C. NOT. MARP) MPAP=MPAP. AND. (.NOT.MARS) MRAP=SHIFT(MRAP,-18). AND. MARS MRAR=SHIFT<MRAR, 181. AND. MARP MPAP=MPAP. OR. CMRA~ OR. MRAR)

IF ( INST. EQ.· IBL> INST=5HNILU DO 11 1=7, 12

NFO(Il=lOH

IF CNA.GT.3) READ CINN,111) CNFOCI),1=7,12) FORMAT (10X,3(A10,A5))

GO TO 1

READ <INN, 1201 NREF,NOR,NB, (NRAPTI(ll, I=l,71 FORMAT (1X,2A4, I1,7A10)

N8=0 Å IS=8 Å ISL=14 READ ( INN, 102) IKO

BACKSPACE I NN A IF ( I KO. EQ. I KOS) GO TO 22 GO TO 1

22 NB=NB+l

READ ( INN, 121) NC, CNRAPTI (I>, I=IS, ISU 121 FORMAT (9X, 11, 7A101

IS=15 A ISL=21 GO TO 21

30 READ (INN, 130) NPR,NSI,NTILG,NEM,NSTE, ISBN 130 FORMAT (1X,A4,A4, I1,4(A10,A51,A10)

C PRIS OG SIDETALL H0YRE-JUSTERES

IF ((NPR. AND. MAM). EQ. MAB) CALL SHIFTA<NPR,4) IF ((NSI. AND. MAM). EQ. MAB) CALL SHIFTACNSI,4) GO TO l

40 CONTINUE

IF CIAR.LE.79) READ (INN,140)(NOPPCI),I=1,5),N1JPPC7l,NOPP(8) 140 FORMAT (10X,4A10,A5,A10,A51

IF (IAR. GE. 80) READ (INN, 141) NOPP 141 FORMAT (10X,5A10,A5,A10,A51

GO TO l 255

260

265

270

275

280

285

290

50 NGR(5l=O

READ (INN, 102) IKO PRINT 151

151 FORMAT <• GRUPPE 5 ER IKKE LENGER TILLATTAAA•I GO TO 1

60 RE/-)D CINN,121) NE,CNENGTI(Il,I=l,71 READ ( INN, 1021 IKO

IF ( IKO. EQ. IKOS)--NE=l BACKSPACE INN

IF (NE. GT. 0) NGR(6l=NGRC6l+l

IF (NE.-GT. 01 READ (INN, 121) NF, CNENGTl<Il, I=8, 14) GO TO ^l

70 READ ( INN, 121 I NG, <NDIV( I I, I=l. 7) READ ( INN, 102) IKO ; IF (IKO.EQ. !KOS~ NG=l

BACKSPACE INN

IF <NG. GT. Ol NGR<7l=NGR(7)+1

IF (NG. GT. Ol READ (INN, 121) NHJl-.(NDIV(ll, 1=8, 14) GO TO 1

C C

C LEST ALLE KORT FOR EN RAPPORT 199 PRINT 209,NRAP

209 FORMAT <• LEST •AS• FRA KORT•>

C SKAL LEGGE PA FILE HVIS IUT)O 200 IKOS=O

IF CIUT. EQ. OJ GO TO ~~O IF ( IRT. EQ. 1 ) GO TO 211 IF CIOP. EQ. 4HFORFl GO TO 201 IF CIO~ EQ 4HEMNE> GO TO 230 IF ( I OP. EQ. 4HSTED) GO TO 234 . GO TO 233

211 IF ( C NRAP. AND. MAST I. EQ. KOR) GO TO 233 GO TO 300

C

C LEGGER UT PA FILE ETTER FORFATTER

C

201 DO 220 N=l,NA

IFS(l)=NFO(l) A IFSC2)=NFOC2) NFO(ll=NF0(3) Å NF0(2l=NF0(41 IF (NA. EQ. 2) GO TO 212

295 BIBL (forts.)

300

305

NF0(3l=NF0(5) Å NF0(4l=NF0(6) IF (NA. EQ 31 GO TO 212 NF0(5l=NF0(71 Å NF0(6l=NF0(8) IF (NA. EQ. 4) GO TO 212

NFOi7l=NF0(91 Å NF0(8)=NF0(10) IF <NA. EQ. 5) GO TO 212

NF0(9l=NF0(11) Å NF0(10l=NF0(12l 212 KK=NA*2

NFO<KK-ll=IFS(l) A NFO(KKl=IFS(2l

C Mf:UFORFATTERE UTENFOR NILU SKAL HA* FORAN NAVNET IF (!KOD. EQ. Ol GO TO 202

IF <NF0(1). NE. KODE) GO TO 220 202 CONTINUE

WRITECIUT,2101 INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPTI,NPR, 1NSI. NTILG, NEM, NSTE, NOPP, NENGTI. NDIV, NGR, MPAP

310

315

320

LUT=LUT+1 220 CONTINUE

GO TO 300 230 CONTINUE C

,~

C LEGGER EMNER PÅ FILE KEM=1

231 CONTINUE

IF ( IKOO. EQ. 0) GO TO 203 IF C NEM ( 1 I. EQ. KODE) GO TO 204 203 CONTINUE

325

330

335

340

345

350

355

360

365

370

375

WRITE<IUT,210) INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPJI,NPR, 1NSI, NTILG, NEM, NSTE, NOPP, NENGTI, NDIV, NGR, MPAP

LUT=LUT+1 204 CONTINUE

IF (NEM(3). EQ. IBLI GO TO 232 IF <KEM. GE. 3) GO TO 232 IFS(ll=NEM(1) Å IFS(21=NEM(21 NEM(ll=NEM(31 Å NEM(2l=NEM<41 NEM(3l=NEM(5) A NEM(4l=NEM(61 NEM(5l=IFSC11 A NEMC61=IFS(21 KEM=KEM+1

GO TO 231

233 WRITE(IUT,210) INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPTI,NPR, 1NSI,NTILG,NEM,NSTE,NOPP,NENGTI,NDIV,NGR,MPAP

LUT=LUT+l 232 CONTINUE

GO TO 300 234 CONTINUE

C LEGGER STEDER PÅ FILE IF (!KOD. EQ. 0) GO TO 235 IF (NSTE(11. N~ KODE) GO TO 236 235 CONTINUE

WRITE<IUT,2101 INST,NRAP,NA,NFO,NUT, ISBN, NREF,NOR,NB,NRAPTI,NPR, lNSI,NTILG,NEM,NSTE,NOPP,NENGTI,NDIV,NGR,MPAP

LUT=LUT+1 236 CONTINUE

C C

C LAGT UT PÅ FILE ETTER !OP-DIREKTIVET 300 CONTINUE

IF (!LIS. EQ. 01 GO TO 3

C C

C START UTSKRIFT

IF CILIS. EQ. 4) GO TO 370 IF <NRAP. EQ. NRAPS) GO TO 3 IF (!LIS. EQ. 51 GO TO 372 If:N=O

IF < IENG. EQ. 1) GO TO 360 IF CILIS. EQ. 7) GO TO 381 GO TO 302

381 IF (NOR. EQ. 4H ENGi GO TO 302

GO TO 3

302 CONTINUE

PR I NT 301, NFO ( 1 I , NFO ( 2) , ( NR APT I ( I l , I= 1, 7 l 301 FORMAT (1HO,T16,A10,A5,3X,7A101

IF (IRE. EQ. 01 PRINT 307,NRAP 307 FORMAT (1H+,3X,A81

IF CNA. GT. 11 PRINT 303,NF0(31,NFOC4) 303 FORMAT (1H ,T16,A10,A51

IF (NA. EQ. 1) PRINT 303

IF (NR GT. 0) PRINT 304, <NRAPTI(ll, 1=8, 14l 304 FORMAT 11H+,T34,7A101

IF (NB. EQ. 0) GO TO 320

IF <NA. GT. 21 PRINT 303,NF0(51,NF0(61 IF (NA LE. 2) PRINT 303

IF (NB EQ. 2 l PRINT 304, CNRAPTI I I I, 1=15, 21 I

380

385

390

395

400

405

BIBL (forts. )

410

415

420

425

430

435

440

445

320 CONTINUE

IF <NB. EQ. 2) PRINT 303

IF (NIJT(l). N~ IBL) PRINT 311,NUT 311 FORMAT (1H+,T34,A10,A5l

IF <IRE. EQ. Ol GO TO 305

IF((NRAP. ANn MASK). EQ 2H l GO TO 322 PRINT 315, INST,NRAP

315 FORMAT (1H+,T51,*C*A5, 1X,A8*l*l GO TO 322

305 CONTINUE

IF (NSI. EQ. 4HFL. Pl GO TO 316 IF (NSI. NE. 4H ) PRINT 312,NSl 312 FORMAT C1H+,T53,A4* S*l

GO TO 317 316 PRINT 318

318 FORMAT (1H+,T53,*FL. PAG. *) 31 7 CONTINUE

IF (ISBN.NE. 10H PRINT 306, ISBN 306 FORMAT (1H+,T64,*ISBN 82-*AlOl

IF C I ENG. EQ. 1. AND. NOR. EG!. 4H NOR l PR I NT 30 9

309 FORMAT· (1H+,T90,*IN NORWEGIAN*) 322 CONTINUE

IF (NB. GT. Ol GO TO 321

IF (NA. GT. 2) PRINT 303,NFOC5),NF0(6) 321 CONTINUE

1F CNA. GT. 3) PRINT 303,NF0(7l,NFOC8l IF (NA. GT. 4) PRINT 303,NF0(9l,NF0(10l IF (N~ GT. 5) PRINT 303,NF0(11l,NF0(12) IF <IRE. EQ 1) GO TO 354

1F <IFU. EQ. Ol GO TO 356 IF (NEM(ll. EQ IBLl GO TO 354 PRINT 355,NEM,NSTE

355 FORMAT (T34,4(A10,A8))

354 IF (NDIVlll. EQ. IBLl GO TO 356 NMA=NGR(7l*7

PRINT 308, (NDIV(Il, I=l.NMA) 308 FORMAT (T34,7A10)

356 CONTINUE

IF (IRE. EQ. 1) GO TO 3

IF ( NOPP ( 1 l . NE. IBU PR I NT 341. NOPP

341 FORMAT (1H, 14X*OPPDRAGSGIVER*T34,5A10,A5,3X,A10,A5) NT=NTILG

IF (NT. LE. 0. OR. NT. GT. 6) GO TO 351 PFUNT 342, < ITILG(J, NTL J=l, 4) 342 FORMAT (1H ,T48,4A10l

GO TO 352 351 PRINT 342

352 IF (NPR. EQ. 4H l GO TO 360 IF (NT. LE. 2) PRINT 343,NPR 343 FORMAT (1H+,T34,*PRIS KR*,A4l 360 CONTINUE

IF <IENG. EQ. 0) GO TO 363 IEN=IEN+l

IF (IE~ GT. ll GO TO 3

IF (NOR EQ. 4H ENG> GO TO 302 IF (NENGTI(ll. EQ. IBLl GO TO 302 DO 361 I=l. 14

NRAPTI<Il=NENGTI(Il NB=NGRC6)

VED ENOELSK LISTE SETTES DEN NORSKE TEKSTEN PÅ NORSKE RAPPORTER

DER DET IKKE ER ANGITT NOEN ENGELSK TITTEL GO TO 302

CONTINUE

IF <IFU. EQ. Ol GO TO 3

IF CNENGTI ( 1). NE. !BU PRINT 362, NENGTI FORMAT (T34,7A10)

361 C C

::163

362 370 371 372 450

GO TO 3

PRINT 371,NRAP,NEM,NSTE FORMAT (4X,A8,3X,41A10,A8ll GO TO 3

1F INSTE Ill. EQ IBL) GO TO 3 PRINT 371,NRAP,NSTE,NEM GO TO 3

ENO

5

10

SUBROUTINE KOMASIKODE,MASTl I_ BL=55000000000000000000B MAS=77000000000000000000B LODE=KODE Å MAST=O

DO 10 I=L 10

IF ((LODE. AND. MASI. E~ LBLI MAST=MAST. OR. MAS LODE=SHIFTILODE,61

MAST=SH!FTIMAST,61 10 CONTINUE

MAST=. NOT. MAST RETURN

END

KOMAS

SHIFTA

C C 5

10

15

20

SUBROUTINE SHIFTA<L, NI

HVIS N>O, HØYRE-JUSTERES ORDET L SOM ER PÅ N KARAK1E.HtcH HVIS N<O VENSTREJUSTERES ORDET L SOM ER PA N-fCARAKTERER

IF IN. LT. 0) GO TO 3

MA=lOOB**llO-N) MB=55l3*MA MC=77B*MA

NOM=. NOT. MASK(6l Å NBL=lL 00 1 I=t. N

L=<SHIFT(L,-6). AND. NOMI. OR. NBL IF (IL. AND. MCI. NE. MB) GO TO 2 1 CONTINUE

2 Rl::TURN

3 M=-NJ..MAS=MASK(6) MB=55B*(100B**l10-Mll NBL=lL

MAL=MASK(6*(M-ll) DO 4 I=L M

L=<SHIFT(L, 6). AND. MAU. OR. MB IF(IL. AND. MAS). NE. NBL)GO TO 5

4 CONTINUE 5 RETURN

END

STSORT

5

10

SUBROUTINE STSORTIIPO, ICHAR,LIN,LUN, IP2, IC2l R~WIND LIN Å REWIND LUN

CALL SMSORTl790)

CALL SMFILE( "SORT", "FORMATTED", LIN, "REl,IIND" I CALL SMFILE( "OUTPUT", "FORMATTED", LUN, "REW IND" l

CAI_L St1KEY < IPO, 1, I CHAR, 0, "DISPLAY", "DISPLAY">

IF IIP2. GT. 0) CALL SMKEYIIP2, 1, IC2,0, "DISPLAY", "DISPLAY">

CALL St1END

REWIND LIN J.. REWIND LUN RETURN

END