aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Multiple-regression/Fortran/multiple-regression.f
View file

@ -12,20 +12,20 @@
*
* INPUT ARRAYS ARE DESTROYED!
*
*___Name_________Type_______________In/Out____Description________________________
* X(N,K) Double precision In Predictors
* Y(N) Double precision Both On input: N Observations
* On output: K beta weights
* N Integer In Number of observations
* K Integer In Number of predictor variables
* DWORK(3*K) Double precision Neither Workspace
* IWORK(K) Integer Neither Workspace
*___Name___________Type_______________In/Out____Description_____________
* X(N,K) Double precision In Predictors
* Y(N) Double precision Both On input: N Observations
* On output: K beta weights
* N Integer In Number of observations
* K Integer In Number of predictor variables
* DWORK(N+2*K) Double precision Neither Workspace
* IWORK(K) Integer Neither Workspace
*-----------------------------------------------------------------------
SUBROUTINE MR (X, Y, N, K, DWORK, IWORK)
IMPLICIT NONE
INTEGER K, N, IWORK
DOUBLE PRECISION X, Y, DWORK
DIMENSION X(N,K), Y(N), DWORK(3*K), IWORK(K)
DIMENSION X(N,K), Y(N), DWORK(N+2*K), IWORK(K)
* local variables
INTEGER I, J
@ -44,7 +44,7 @@
* call function
CALL DHFTI (X, N, N, K, Y, N, 1, TAU,
$ J, DWORK(1), DWORK(K+1), DWORK(2*K+1), IWORK)
$ J, DWORK(1), DWORK(N+1), DWORK(N+K+1), IWORK)
IF (J < K) PRINT *, 'mr: solution is rank deficient!'
RETURN
END ! of MR
@ -55,7 +55,7 @@
INTEGER N, K
PARAMETER (N=15, K=3)
INTEGER IWORK(K), I, J
DOUBLE PRECISION XIN(N), X(N,K), Y(N), DWORK(3*K)
DOUBLE PRECISION XIN(N), X(N,K), Y(N), DWORK(N+2*K)
DATA XIN / 1.47, 1.50, 1.52, 1.55, 1.57, 1.60, 1.63, 1.65, 1.68,
$ 1.70, 1.73, 1.75, 1.78, 1.80, 1.83 /