Tuesday, July 14, 2009

Anybody have assignment of scdl of MBAIT( C LANGUAGE)?

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/


No comments:

Post a Comment