MBA IN IT FORM SCDL FIRST SEMSTER NEED A ASSIGNMENT OF C LANGUAGE
Anybody have assignment of scdl of MBAIT( C LANGUAGE)?
*DTEST
PROGRAM DTEST
C***Begin Prologue DTEST
C***Refer to ODR
C***Routines Called DODRX
C***Date Written 861229 (YYMMDD)
C***Revision Date 920619 (YYMMDD)
C***Purpose EXERCISE FEATURES OF ODRPACK95 SOFTWARE
C***End Prologue DTEST
C...Used modules
USE REAL_PRECISION
C...Scalars in common
INTEGER
%26amp; NTEST
C...Local scalars
REAL (KIND=R8)
%26amp; TSTFAC
INTEGER
%26amp; LUNERR,LUNRPT,LUNSUM
LOGICAL
%26amp; PASSED
C...External subroutines
EXTERNAL
%26amp; DODRX
C...Common blocks
COMMON /TSTSET/ NTEST
C***Variable declarations (alphabetically)
C LUNERR: The logical unit number used for error messages.
C LUNRPT: The logical unit number used for computation reports.
C LUNSUM: The logical unit number used for a summary report listing
C only the test comparisons and not the odrpack generated
C reports.
C NTEST: The number of tests to be run.
C PASSED: The variable designating whether the results of all of the
C tests agree with those from the cray ymp using double
C precision (PASSED=TRUE), or whether some of the results
C disagreed (PASSED=FALSE).
C TSTFAC: The user-supplied factor for scaling the test tolerances
C used to check for agreement between computed results and
C results obtained using REAL (KIND=R8) version on cray
C YMP. Values of TSTFAC greater than one increase the
C test tolerances, making the tests easier to pass and
C allowing small discrepancies between the computed and
C expected results to be automatically discounted.
C***First executable statement TEST
C Set up necessary files
C NOTE: ODRPACK95 generates computation and error reports on
C logical unit 6 by default;
C logical unit 'LUNSUM' used to summarize results of comparisons
C from exercise routine DODRX.
LUNRPT = 18
LUNERR = 18
LUNSUM = 19
OPEN(UNIT=LUNRPT,FILE='REPORT')
OPEN(UNIT=LUNERR,FILE='REPORT')
OPEN(UNIT=LUNSUM,FILE='SUMMARY')
C Exercise REAL (KIND=R8) version of ODRPACK95
C (test reports generated on file 'RESULTS' and
C summarized in file 'SUMMARY')
NTEST = 23
TSTFAC = 1.0E0_R8
CALL DODRX(TSTFAC,PASSED,LUNSUM)
END
*DODRX
SUBROUTINE DODRX
%26amp; (TSTFAC,PASSED,LUNSUM)
C***Begin Prologue DODRX
C***Refer to ODR
C***Routines Called DDOT,DNRM2,ODR,DODRXD,
C DODRXF,DODRXW,DWGHT,DZERO
C***Date Written 860529 (YYMMDD)
C***Revision Date 920619 (YYMMDD)
C***Purpose Exercise features of ODRPACK95 software
C***End Prologue DODRX
C...Used modules
USE ODRPACK95
USE REAL_PRECISION
C...Parameters
INTEGER
%26amp; LDWD,LDWE,LD2WD,LD2WE,LIWORK,LWORK,MAXN,...
REAL (KIND=R8)
%26amp; BASE
PARAMETER
%26amp; (MAXN=50, MAXM=3, MAXNP=10, MAXNQ=2, NTESTS=23,
%26amp; LDWE=MAXN, LD2WE=MAXNQ, LDWD=MAXN, LD2WD=MAXM,
%26amp; LWORK = 18 + 11*MAXNP + MAXNP**2 + MAXM + MAXM**2 +
%26amp; 4*MAXN*MAXNQ + 6*MAXN*MAXM + 2*MAXN*MAXNQ*MAXNP +
%26amp; 2*MAXN*MAXNQ*MAXM + MAXNQ**2 +
%26amp; 5*MAXNQ + MAXNQ*(MAXNP+MAXM) + LDWE*LD2WE*MAXNQ,
%26amp; LIWORK = 20+MAXNP+MAXNQ*(MAXNP+MAXM),
%26amp; BASE = RADIX(1.0E0_R8))
C...Scalar arguments
REAL (KIND=R8)
%26amp; TSTFAC
INTEGER
%26amp; LUNSUM
LOGICAL
%26amp; PASSED
C...Scalars in common
INTEGER
%26amp; NTEST,SETNO
C...Local scalars
INTEGER
%26amp; I,INFO,IPRINT,ITEST,JOB,L,LDIFX,LDSCLD,L...
%26amp; LDX,LDY,LD2WD1,LD2WE1,LIWMIN,LUN,LUNERR,...
%26amp; M,MAXIT,MSG,N,NDIGIT,NP,NQ
REAL (KIND=R8)
%26amp; BNRM,EPSMAC,EWRT,EWRT2,HUNDRD,ONE,P01,P2...
%26amp; TAUFAC,THREE,TSTTOL,TWO,WSS,WSSDEL,WSSEP...
LOGICAL
%26amp; FAILED,FAILS,ISODR,SHORT
CHARACTER TITLE*80
C...Arrays in common
REAL (KIND=R8)
%26amp; LOWER(MAXNP),UPPER(MAXNP)
C...Local arrays
REAL (KIND=R8)
%26amp; BETA(MAXNP),DELTA(:,:),DPYMP(2,NTESTS),
%26amp; SCLB(MAXNP),SCLD(MAXN,MAXM),
%26amp; STPB(MAXNP),STPD(MAXN,MAXM),
%26amp; WE(MAXN,MAXNQ,MAXNQ),WD(MAXN,MAXM,MAXM),...
%26amp; WRK(MAXN*MAXM+MAXN*MAXNQ),X(MAXN,MAXM),Y...
%26amp; TEMPRETL(MAXN,MAXM)
INTEGER
%26amp; IDPYMP(NTESTS),IFIXB(MAXNP),IFIXX(MAXN,M...
C...Pointers
POINTER
%26amp; DELTA,IWORK,WORK
C...External functions
REAL (KIND=R8)
%26amp; DDOT,DNRM2
EXTERNAL
%26amp; DDOT,DNRM2
C...External subroutines
EXTERNAL
%26amp; DODRXD,DODRXF,DODRXW,DZERO
C...Intrinsic functions
INTRINSIC
%26amp; ABS,MOD
C...Common blocks
COMMON /SETID/SETNO
COMMON /TSTSET/ NTEST
COMMON /BOUNDS/ LOWER,UPPER
C...Data statements
DATA
%26amp; ZERO,P01,P2,ONE,TWO,THREE,HUNDRD
%26amp; /0.0E0_R8,0.01E0_R8,0.2E0_R8,1.0E0_R8,2....
%26amp; 100.0E0_R8/
DATA
%26amp; (DPYMP(I,1),I=1,2)
%26amp; /2.762733195780256808978449342964E+04_R8...
%26amp; 7.532639569022918943695104672512E-04_R8/
DATA
%26amp; (DPYMP(I,2),I=1,2)
%26amp; /2.762732630143673024399942947263E+04_R8...
%26amp; 7.538467722687131506874279314940E-04_R8/
DATA
%26amp; (DPYMP(I,3),I=1,2)
%26amp; /1.069944100000000027940905194068E+09_R8...
%26amp; 1.212808593256056359629660672046E-05_R8/
DATA
%26amp; (DPYMP(I,4),I=1,2)
%26amp; /1.069944100000000026623461142867E+09_R8...
%26amp; 5.452084633790606017572015067556E-07_R8/
DATA
%26amp; (DPYMP(I,5),I=1,2)
%26amp; /1.426988156377258617521571734503E+00_R8...
%26amp; 1.084728687127432219753903919409E+00_R8/
DATA
%26amp; (DPYMP(I,6),I=1,2)
%26amp; /4.261321829513978871872508874025E+00_R8...
%26amp; 1.477967210398420733565424329280E-02_R8/
DATA
%26amp; (DPYMP(I,7),I=1,2)
%26amp; /4.261272307142888464011486769858E+00_R8...
%26amp; 1.477966125465374336804138554559E-02_R8/
DATA
%26amp; (DPYMP(I,8),I=1,2)
%26amp; /4.371487317909745009110272283622E+01_R8...
%26amp; 1.144419474408286067112233592550E-03_R8/
DATA
%26amp; (DPYMP(I,9),I=1,2)
%26amp; /3.099048849376848610380977303924E+00_R8...
%26amp; 8.824708863783850023783338218501E-02_R8/
DATA
%26amp; (DPYMP(I,10),I=1,2)
%26amp; /9.469917836739932584221023234527E+00_R8...
%26amp; 4.205389215588104651198536809880E-01_R8/
DATA
%26amp; (DPYMP(I,11),I=1,2)
%26amp; /3.950949253027682207109233363651E+01_R8...
%26amp; 6.651838750834910819636881506915E+01_R8/
DATA
%26amp; (DPYMP(I,12),I=1,2)
%26amp; /3.950949253027682207109233363651E+01_R8...
%26amp; 6.651838750834910819636881506915E+01_R8/
DATA
%26amp; (DPYMP(I,13),I=1,2)
%26amp; /1.414213562373095000000000000000E+00_R8...
%26amp; 5.250825926608277346013642256883E-26_R8/
DATA
%26amp; (DPYMP(I,14),I=1,2)
%26amp; /1.414213562373095000000000000000E+00_R8...
%26amp; 8.159081600696301507018019048968E-26_R8/
DATA
%26amp; (DPYMP(I,15),I=1,2)
%26amp; /1.486588477064952451556223422813E+00_R8...
%26amp; 1.841690442255357083922717720270E+03_R8/
DATA
%26amp; (DPYMP(I,16),I=1,2)
%26amp; /2.001224625073357401561224833131E+02_R8...
%26amp; 0.000000000000000000000000000000E+00_R8/
DATA
%26amp; (DPYMP(I,17),I=1,2)
%26amp; /2.000099997500125000000000000000E+02_R8...
%26amp; 0.000000000000000000000000000000E+00_R8/
DATA
%26amp; (DPYMP(I,18),I=1,2)
%26amp; /1.414213562373095000000000000000E+00_R8...
%26amp; 5.816277809383742531415846947805E-26_R8/
DATA
%26amp; (DPYMP(I,19),I=1,2)
%26amp; /2.000624902374255782433465356007E+02_R8...
%26amp; 4.568236947482152283374593507328E+30_R8/
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment