13 lines
489 B
COBOL
13 lines
489 B
COBOL
|
IDENTIFICATION DIVISION.
|
||
|
|
PROGRAM-ID. KAIROS-COHERENCE.
|
||
|
|
ENVIRONMENT DIVISION.
|
||
|
|
DATA DIVISION.
|
||
|
|
LINKAGE SECTION.
|
||
|
|
01 I OCCURS 1000 TIMES PIC S9(5)V9(5).
|
||
|
|
01 PHASE PIC S9(5)V9(5).
|
||
|
|
PROCEDURE DIVISION USING I PHASE.
|
||
|
|
PERFORM VARYING J FROM 1 BY 1 UNTIL J > 1000
|
||
|
|
COMPUTE I(J) = I(J) * FUNCTION COS(PHASE)
|
||
|
|
END-PERFORM.
|
||
|
|
GOBACK.
|
||
|
|
END PROGRAM KAIROS-COHERENCE.
|